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ABSTBACT 


The  Cartesian  Access  Bethod  (CABTAH)  is  a  data 
structure  and  its  attendant  access  prograa  designed  to 
provide  rapid  retrievals  froa  a  data  file  based  upon  anlti- 
diaensional  keys;  for  exaaple,  using  earth  surface  points 
defined  by  latitude  and  longitude,  retrieve  all  points 
within  x  nautical  siles.  This  thesis  describes  that  data 


structure  and  progran  in  detail  and  provides  the  actual 
routines  as  iapleaented  on  the  International  Business 
Hachine  (IBB)  Systea/370  series  of  computers.  The  search 
technique  is  analogous  to  the  binary  search  for  a  linear 
sorted  file  and  seess  to  run  in  0(log(H))  tiae.  An 
indication  of  the  perforaance  is  the  extraction,  in  less 
than  25  Billiseconds  CPU  tiae  on  an  IBB  370,  Bodel  3033,  of 
all  points  within  a  10,000-foot  circle  froa  a  geographic 
data  base  containing  approxiaately  100,000  basic  records.^--' 
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IITBODOCTIOB 

The  age  of  inforaation  is  upon  us.  whether  the  cos- 
pater  has  been  developed  to  allow  as  to  aanipnlate  that 
inforaation  or  to  generate  it  is  a  Boot  guestion  at  this 
tine;  we  do  have  large  aasses  of  data  and  aust  use  the 
coapater  to  aanage  thea  efficiently.  The  corporate  data  base 
has  becoae  an  all-iaportant  entity  in  nany,  aany  cases,  and 
the  nanageaent  and  retrieval  of  inforaation  has  becoae  a  far 
froa  trivial  operation;  witness  the  proliferation  of  data 
base  nanageaent  systeas  on  the  aarket  today.  I  aa  not 
trying  to  address  that  aassive  subject;  rather  a  snail 
corner  concerned  with  the  efficient  searching  and  retrieval 
of  pertinent  inforaation  to  answer  soae  rather  specific 
gnestions. 

It  is  extreaely  rare  that  a  guestion  is  asked  which 
requ ires  access  to  an  entire  data  base  to  develop  the  answer. 
In  the  vast  aajority  of  cases,  we  only  need  to  exaaine 
certain  rather  saall  subsets  of  the  available  data.  Bany  of 
these  instances  involve  the  deteraination  of  a  key  value  or 
a  range  of  key  values  which  are  then  used  to  access  the 
appropriate  record  (s)  to  answer  the  original  query.  So  far 


these  keys  have  been  single-diaensional  values  used  to  probe 
a  linear  sequential  file  of  soae  particular  organization. 

There  have  been  aany  sethods  developed  to  solve  these  types 
probleas;  An  nth  devotes  an  entire  voluae  to  then  [8]. 

However,  if  the  inforaation  is  keyed  by  aulti-diaensional 
values,  such  as  points  in  Cartesian  space  or  locations  on 
the  surface  of  the  earth,  existing  aethods  do  not  readily 
lend  theaselves  to  answer  questions  of  proxiaity  or  nearness. 

Fjl 

This  paper  presents  a  solution  to  the  problea  of  H 

efficient  probes  into  aulti-diaensional  data  using  a  aethod  , ; 

of  quadrature  to  develop  a  data  structure  which  has  becone  I 

very  useful  for  questions  such  as:  "Which  resorts  are  within  ^ 

|  j 

a  day's  drive  of  ay  hone?";  "Bow  aany  doctors  and  dentists  jj 


are  located  in  the  state  of  Arizona?";  "What  types  of  j' 

navigation  aids  are  available  for  an  airline  route  froa  San  jj 

Francisco  to  Hoscov?",  etc.  I  shall  develop  this  structure 
and  the  iapleaentation  of  soae  coaputer  prograas  which 

provide  the  answers  to  these  and  other  siailar  questions.  ] 

i 

The  first  of  three  aain  divisions  of  this  thesis  is  a 
step-by-step  developaent  of  the  data  structure  and  its  algo- 
ritha.  In  order  to  establish  an  initial  environaent. 

Chapter  II  briefly  describes  soae  geographic  data  files  in 

y 

use  at  Headquarters,  Strategic  Air  Coaaand  (SAC)  and  the  i 

aethods  that  were  used  to  query  those  files.  After  exaai-  j 

nation  of  the  problea,  the  basic  algoritha  for  our  solution 
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these  keys  have  been  single-diaensional  values  used  to  probe 
a  linear  sequential  file  of  soae  particular  organization. 
There  have  been  sany  Methods  developed  to  solve  these  types 
probleas;  Knuth  devotes  an  entire  voluae  to  then  [8]. 
However,  if  the  infornation  is  keyed  by  sulti-disensional 
values,  such  as  points  in  Cartesian  space  or  locations  on 
the  surface  of  the  earth,  existing  aethods  do  not  readily 
lend  theaselves  to  answer  questions  of  proxiaity  or  nearness. 

This  paper  presents  a  solution  to  the  problea  of 
efficient  probes  into  aulti-diaensional  data  using  a  aethod 
of  quadrature  to  develop  a  data  structure  which  has  becoae 
very  useful  for  questions  such  as:  "Rhich  resorts  are  within 
a  day's  drive  of  ay  hoae?*;  "Bow  aany  doctors  and  dentists 
are  located  in  the  state  of  Arizona?";  "What  types  of 
navigation  aids  are  available  for  an  airline  route  froa  San 
Francisco  to  Moscow?",  etc.  I  shall  develop  this  structure 
and  the  iapleaentation  of  soae  coaputer  prograas  which 
provide  the  answers  to  these  and  other  siailar  questions. 

The  first  of  three  nain  divisions  of  this  thesis  is  a 
step-by-step  developaent  of  the  data  structure  and  its  algo- 
ritha.  In  order  to  establish  an  initial  environaent. 

Chapter  II  briefly  describes  soae  geographic  data  files  in 
use  at  Headquarters,  Strategic  lir  Coaaand  (SAC)  and  the 
aethods  that  were  used  to  query  those  files.  After  exaai- 
nation  of  the  problea,  the  basic  algoritha  for  our  solution 


is  developed  in  Chapter  III.  This  developaent  is  in  one 

dimension,  specifically  the  real  line,  as  illustration  to 

/ 

allow  cosparison  with  existing  file  search  strategies,  in 
particular  the  binary  search  scheae.  As  soch,  the  algorithm 
and  structure  will  appear  very  caabersoae;  the  ntility  of 
the  aethod  becoaes  apparent  in  Chapter  I?  as  the  structure 
and  algoritha  are  generalized  to  n  diaensions. 

The  second  section  of  this  paper  covers  the  technical 
aspects  of  the  actual  ispleaentation .  Chapter  V  is  intended 
as  a  user's  guide  for  the  progranaer/analyst  who  plans  to 
use  this  n-dinensional  progressing  techigue  to  solve  a 
specific  problea.  The  iapleaentation  is  as  a  subroutine, 
and  this  chapter  describes  the  calling  segnences  and  the 
results  that  are  to  be  expected.  Chapter  ?I  goes  into  the 
internal  workings  of  CABTAH  and  is  aaintenance  inforaation 
intended  for  the  asseably  level  prograaaer  who  wishes  to 
both  install  the  systea  on  his  own  hardware  and/or  aaintain 
it  while  in  use. 

Once  the  reader  is  aware  of  the  available  operations, 
a  series  of  exaaples  is  presented  in  the  third  section  to 
denonstrate  the  use  of  the  systea.  Chapter  Til  describes 
a  few  of  the  current  application  prograas  in  day  to  day  use 
at  Beadguarters  SAC.  These  prograas  aay  prove  to  be  useful 
to  the  reader  in  their  own  right,  but  the  aain  purpose  is  to 
illustrate  soae  aethods  and  show  how  the  data  structure  aay 
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be  used.  I  hope  that  they  will  serve  as  juaping-off  places 
for  solutions  to  existing  probleas  that  had  been  deeaed 
either  unsolvable  or  too  costly  to  solve  using  previously 
known  aethods.  Chapter  Till  concludes  with  soae  thoughts 
and  recoaaendations  on  possible  future  applications  and 
iaproveaents. 

The  appendices,  with  one  exception,  are  listings  of  the 
prograas  that  have  been  in  use  at  SAC  for  the  last  year. 
Appendix  B  contains  a  detailed  description  of  a  distance- 
calculation  function  or  aetric  used  to  coapute  geodetic 
distances  on  the  surface  of  the  earth.  This  aetric  is  used 
throughout  the  exanples  in  Chapter  TII. 
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CHAPTEB  II 


BACKGBOOND  A HD  PBOBLBH  ENVIBONHENT 


The  data  structure  and  access  techniques  as  described 
in  this  thesis  were  developed  primarily  at  Headquarters, 
Strategic  Air  Command,  Omaha,  Nebraska,  and  specifically 
applied  to  geographic  data  files  used  by  the  Joint  Strategic 
Target  Planning  Staff.  These  particular  files  are  used  as 
concrete  exaaples  and  are  not  intended  to  iaply  that  these 
are  the  only  possible  applications;  the  aethod  may  be 
applied  to  any  multi-dimensional  data  file. 

The  first  file  that  was  examined  consists  of  approx¬ 
imately  50,000  records  describing  points  on  the  surface  of 
the  earth.  Host  of  the  information  in  each  of  these  records 
is  of  no  consequence  to  this  discussion  except  for  a  unigue 
21  character  key  which  can  be  used  for  retrieval  of  a 
desired  complete  record,  and  the  latitude  and  longitude 
which  specify  the  location  of  the  item  on  the  earth. 

Queries  against  this  file  by  location  have  been  limited' 
to  small  areas  which  allowed  use  of  a  limiting  procedure 
based  upon  a  range  of  latitude  values.  This  procedure 
started  with  an  external  sort  based  on  the  concatenation  of 
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latitude  and  longitude  into  a  single  key  used  for  sort 
sequence.  The  resultant  file  was  then  read  a  record  at  a 
tine,  checking  for  inclusion  inside  a  gross  "box'*  defined  by 
constant  latitude  and  longitude,  storing  candidate  priee 
keys  in  an  internal  table.  Since  the  file  is  sorted  with  a 
■ajor  key  of  latitude,  the  read  procedure  is  terminated  when 
the  input  latitude  is  greater  than  the  upper  liait  of  the 
box.  Hote,  however,  that  aany  records  are  read  which  will 
fail  the  gross  longitude  check. 

After  the  table  of  candidate  keys  is  built  in  sain 
aeaory,  a  finer  discrimination  is  made  with  an  appropriate 
metric  to  arrive  at  the  final  set  of  accepted  records.  Some 
applications  are  sommarizations  that  permit  the  packaging  of 
several  distinct  queries  into  a  single  program.  Since  each 
candidate  nay  then  be  examined  for  each  criterion,  a  large 
number  of  the  disk  input  operations  are  eliminated. 

However,  this  method  is  absolutely  memory-bound  and  cannot 
afford  a  criterion  resulting  in  a  large  candidate  subset  of 
the  original  file. 

An  attempt  at  clustering  has  been  applied  to  this  geo¬ 
graphic  data  resulting  in  an  "island”  system.  These  islands 
have  been  defined  such  that  each  island  is  disjoint  from  all 
others  with  a  minimum  separation  between  any  two  adjacent 
islands.  The  island  assignment  procedure  is  simply  a  scan 
through  the  entire  file  as  described  above,  looking  for  the 
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island  that  is  less  than  the  ainieue  distance  awa y  froa  the 
new  point,  mother  way  to  consider  the  clustering  is  that 
an  island  is  the  collection  of  all  those  points  that  are 
within  the  aaziana  separation  of  another  point.  This  does 
aanage  to  cluster  points  in  aanageable  groups  in  aost  cases, 
but  occasionally  islands  grow  to  an  unwieldy  size.  Those 
islands  are  then  aanually  broken  up  by  using  a  saaller 
separation  distance. 

Once  the  islands  have  been  assigned,  a  non-trivial 
process,  subsequent  processing  is  usually  done  on  an  island 
basis,  in  application  prograa  is  given  an  island  to 
process,  at  which  tine  all  aeabers  of  that  island  are  read 
into  aain  aeaory  and  the  necessary  fine  discriaination  is 
applied  to  that  subset.  This  aethodology  is  not  too 
unaanageable  as  long  as  the  nuaber  of  aeabers  does  not  get 
too  large;  anything  over  approziaately  500  records  begins 
to  degrade  perf ornance .  The  island  approach  also  Units  the 
fine  discriaination  to  a  distance  criterion  no  greater  than 
the  ainiaua  separation  between  islands .  If  the  desired 
distance  is  greater  than  the  ainiaua  separation,  the  aethod 
breaks  down  coapletely  since  the  search  area  aay  need  aore 
than  one  island. 


1  second  aajor  file  concerns  points  used  to  describe 
country  and  coastal  boundaries  for  napping  applications. 
This  data  set  contains  approziaately  100,000  data  points 
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» 

f 

and  is  stored  in  a  sequence  suitable  for  display  on  an  x-y 

plotting  device.  The  napping  software  is  capable  of  1 

discarding  those  points  outside  of  the  area  being  napped. 

but  the  entire  file  nust  be  read  each  tine,  which  drives  the  ■ 

conputing  tines  to  rather  large  values.  When  naps  are  being  j. 

prepared  in  a  batch  environnent  for  hard -copy  output  to  be  ! 

» 

produced  on  a  flat-bed  plotter,  the  high  CPO  tine  nay  be 
acceptable,  but  not  in  an  interactive  environnent  with  naps 
to  be  displayed  on  a  CRT  device.  The  only  known  aethod  of 

i 

operation  was  to  pre-build  desired  naps  overnight,  which  \ 

restricted  a  user  to  those,  and  only  those,  naps.  If.  for 
any  reason,  the  user  changed  his  nind.  new  naps  were  not 
available  until  at  least  the  next  day. 

I 

j 

is  can  be  seen,  in  nany  instances  we  have  been  strictly  * 

aeaory-bound  for  area  type  queries  after  reading  the  entire 
source  file.  The  atteapt  at  clustering  the  data  has 
iaproved  this  to  sone  extent,  but  only  if  the  distance  cri- 

i 

terion  is  not  too  great.  Sven  so.  progress  have  been 
required  to  define  internal  table  space  to  allow  for  the 
naxisun  size  of  a  cluster  and  discriaination  within  the 
cluster  required  a  distance  calculation  fron  the  point  of 
interest  to  every  neaber  of  that  cluster.  The  data 
structure  and  techniques  described  in  the  reaaining  chapters 
have  reaoved  these  restrictions  entirely. 


* 
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CHAPTER  III 

AH  OIUSOAL  OITA  STROCTOBE 
FOB  THE  BEAL  LIRE 

The  problea  of  retrieval  of  inforaation  froa  a  large 
file  is  usually  solved  by  deteraining  a  unique  key  for  each 
record,  ia posing  an  ordering  operator  (>)  on  the  key  field 
and  subsequently  storing  the  data  in  a  linear  fashion  on 
secondary  storage.  Retrievals  aay  then  be  accoaplished  by 
several  efficient  search  strategies,  e -g . ,  binary  search, 
hashing,  etc.  If  the  individual  records  are  substantial  in 
size,  indexes  are  useful  in  reducing  secondary  storage 
access  tiae,  but  the  problea  of  searching  the  index  has  not 
changed. 

An  order  is  iaposed  upon  the  key  values  to  increase  the 
aaount  of  available  inforaation.  A  linear  sweep  of  such  a 
file  aay  be  terainated  when  the  key  value  becoaes  greater 
then  the  desired  arguaent,  where  a  randoa  ordering  would 
require  exaaination  of  every  key  value  in  the  file.  This 
linear  probing  of  a  sorted  file  results  in  an  average  access 
of  R/2  records,  where  B  is  the  total  nuaber  of  keys  in  the 
file  of  interest.  A  such  faster  technique  is  the  so-called 
binary  search,  which  probes  the  aedian  record  in  a  sorted 
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file  and  iatiriiMi  which  half  sight  contain  tha  dasirad 
hay,  than  discarding  tha  othar  half.  Considaring  tha 
raaaining  sab-fila  as  a  fila  itself*  tha  aadian  racord  of 
tha  sab-fila  is  thaa  pro bad .  This  algoritha  tarainatas 
snccassf ally  whan  tha  dasirad  kay  is  found*  or  tarainatas 
unsuccessfully  whan  adjacent  kays  in  tha  fila  brackat  tha 
dasirad  value.  Tha  binary  saarch  algoritha  accassas  an 
average  of  approxiaately  log 2  (I)  racords  and  is  said  to  ran 
in  log  (I)  tins.  Thasa  algorithas  have  an  underlying 
assaaption  that  tha  kay  valnas  aay  be  napped  ona-to-one  with 
a  subset  of  tha  integers  in  a  neaningfal  way  which  allows 
for  tha  application  of  an  ordering  operator  and  subsequent 
sorting  of  tha  fila. 

However*  if  the  fila  consists  of  geographic  data*  for 
exaaple*  with  latitude  and  longitude  for  coordinates*  tha 
concept  of  ordering  becoues  nebulous  at  bast.  It  is  true 
that  on  a  general  purpose  coaputer*  tha  latitude  and 
longitude  aay  be  defined  in  such  a  fashion  as  to  each  reside 
in  a  coaputer  word  of*  say*  32  bits.  Thasa  two  coaputer 
words  could  be  concatenated  into  a  6h-bit  kay  value*  and 
tha  fila  could  than  be  sorted  accordingly.  A  problaa  arises 
whan  trying  to  decide  which  coordinate  is  to  be  considered 
as  tha  aajor  portion  of  the  key.  If  latitude  is  chosen  as 
tha  aajor  kay*  than  data  points  with  identical  latitude  will 
be  "close"  together  in  tha  fila*  but  data  points  with  iden¬ 
tical  longitude  aay  be  "far"  apart  in  tha  fila  structure. 


...  -- 


-11- 


Sincs  points  on  th«  surface  of  the  oarth  as  denoted  by 
latitodo  and  long! tad*  have  tboir  own  pro bless  in  relation 
to  a  aetric,  let  ns  suspend  consideration  of  geographic 
points  for  bow  and  concentrate  on  a  Cartesian  space,  i .e 
the  crons  prodnct  of  the  real  line,  in  n  dinensions.  The 
siaplest  Cartesian  space  is  the  real  line  itself  where 
a  «  1.  Than,  the  following  discussion  will  be  United  to 
the  one-dinensional  case  and  nay  appear  unnecessarily 
conplicated  at  tines,  but  renenber  that  the  eventual  goal  is 
the  extension  to  n  dinensions. 

Let  us  exaaine  a  binary  search  strategy  as  applied  to  a 
linear,  sorted  file.  In  particular,  consider  a  "unifora 
binary  search"  as  described  by  Kauth  [8,pg  413]  using  Shar*s 
aodification. 

Given  a  table  of  records  Si,  12,  ...  ,  Sn,  whose  key 
values  are  in  increasing  order  K1  <  K2  <  ...  <  Ka,  we  can 
search  for  a  specified  arguaent  K,  using  algor ithn  Cs 

C1(  Initialise  ] 

Set  i  :■  2**k  where  k  *  1og2  (■)-». 

(SB:  »-log2(s)-*  is  the  floor  of  log2  (n)  or  the 
greatest  integer  i  log2(a);  i.e.,  k  *  »-log2(a)-» 
is  an  integer  such  that  k  S  log2(n)  <  k  ♦  1.) 


..  ^  .as— 
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Zf  K  «  Ki,  algoritba  terainates  successfully. 

If  K  <  Ki,  set  d  :*  2**k,  go  to  C2. 

If  K  >  Ki  end  s  *  2**k,  algoriths  tersinates 

unsuccess folly, 

bat  if  e  >  2**k,  reset  i  :*  a  ♦  1  -  2**J 
where  j  *  *-log2  (a-2**k)-»  ♦  1, 

(note  that  2**k  -  1  s  a  ♦  1  -  2**j  £  2**k) 
set  d  :*  2**j,  and  go  to  C3. 

C2[ Decrease  i] 

If  d  S  1,  algoritba  tersinates  unsuccessfully; 
else  set  d  :«  d/2, 

set  i  :*  i  -  d, 
go  to  C4. 

C3(  Increase  i] 

If  d  j  1,  algoritba  terainates  unsuccessfully; 
else  set  d  :•  d/2, 
set  i  :■  i  ♦  d, 
go  to  C4. 

C4( Coapare ] 

If  K  <  Ki,  go  to  C2. 

If  K  >  Ki,  go  to  C3; 

otherwise  K  *  Ki  and 

algoritba  terainates  successfully. 


The  choice  of  the  underlying  storage  organization  for 
oar  table  of  records  is  a  crucial  consideration.  If  the 
table  is  saall  enough  to  be  contained  entirely  within  the 
primary  store  of  the  cosputer,  transformation  of  the  index 
value  i  into  a  displaceaent  into  the  table  is  a  sinple 
calculation.  However,  complete  residence  in  primary  store 
may  be  prohibitively  restrictive,  as  a  table  of  any 
appreciable  size  must  be  on  secondary  storage.  In  addition, 
the  transformation  of  the  index  into  a  displacement  into  a 
multi-dimensioned  table  becomes  complex.  For  these  reasons, 
and  others  as  will  become  apparent  later,  I  have  chosen  to 
store  structural  information  in  an  explicit  binary  tree, 
with  modifications.  Instead  of  the  left  and  right  links  of 
the  usual  binary  tree,  I  use  the  child  and  twin  pointers  of 
a  ring  structure  or  circular  list.  This  ring  structure  as 
illustrated  in  figure  3-1*  also  includes  the  parentage 
information  usually  provided  by  an  up-link  without  needing 
the  additional  pointer  space  in  the  record  entry.  A  single 
bit  in  each  record  serves  to  indicate  when  a  twin  pointer  is 
in  fact  an  up-link.  It  is  also  convenient  to  include  an 

*The  usual  depiction  of  chains  in  linked  lists  in  diagrams 
is  from  left  to  right.  The  usual  representation  of  a 
negative  number  in  a  general  purpose  computer  is  with  a 
bit  set  to  *1".  When  a  linked  list  chain  is  arranged  in 
ascending  order  based  on  a  bit  string  of  arithmetic  signs, 
we  then  have  an  inversion  between  a  picture  of  a  line 
segment  and  the  corresponding  list.  I  hope  this  will  cause 
no  problems  to  the  reader. 
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explicit  indication  as  to  whether  a  particular  record  is  the 
positive  or  negative  child  of  its  parent  record.  This 
indicator  is  a  single  bit  in  the  one-diaensional  case. 

Since  the  file  is  being  stored  as  an  explicit  binary 
tree,  note  that  additional  records  are  being  generated,  and 
the  concept  of  an  "i-th"  record  for  the  algoritha  becoaes 
ia precise.  Assuae  for  the  aoaent  that  the  key  values  (Ki) 
are  integers  unifornly  distributed  over  the  interval  -X  to 
♦X  where  X  *  2**x  and  x  is  the  saallest  integer  greater  than 
or  equal  to  log2  (sax  ( |Ki  |)  )  ,  i.e., 

x  -  1  <  log2  (aax  (|Ki|)  )  <  x. 

Then  a  root  record  with  a  key  value  of  0  and  a  delta  of  X 
defines  the  interval  *  0±X  as  a  cover  for  all  key  values  of 
interest,  i.e.,  a  line  segaent  that  contains  all  key  values 
within  it.  Dividing  the  interval  in  half,  the  root  segaent 
now  has  a  positive  child  and  a  negative  child  at  the  next 
level  of  detail.  In  the  ring  structure  under  consideration, 
the  positive  child  is  reached  froa  the  child  pointer  of  the 
root  record,  while  the  negative  child  is  reached  by  following 
the  twin  pointer  of  the  positive  child.  The  negative  child 
record  will  have  the  parent  indicator  set  showing  that  the 
twin  pointer  in  that  record  points  back  to  the  parent, 
closing  the  ring.  Carried  to  the  logical  conclusion,  each 
record  in  the  file  defines  a  finite  length  line  segaent  by 
specifying  the  center  coordinate  value  and  a  delta  or  line 
length  to  either  side  of  the  center. 


.rf.Skr  1  .  -  .'Jli 


There  are  soae  important  points  to  keep  in  Bind  about 
the  line  segaents  as  defined  by  the  file  records.  The 
children  of  a  given  record  subdivide  the  line  segaent  as 
defined  by  the  parent  record.  In  particular*  if  we  consider 
a  record  as  defining  a  set*  which  is  exactly  a  line  segaent 
in  the  one-diaensional  case*  the  set  intersection  of  records 
connected  by  twin  pointers  is  enpty*  while  the  union  of 
those  sane  records  is  identical  to  the  parent  record.  These 
conditions  of  intersection  and  union  also  iaply  that  the 
the  intervals  defined  by  the  records  are  only  half-closed* 
specifically*  closed  at  the  left  end  and  open  at  the  right 
end.  is  an  exaaple*  assune  that  we  have  a  set  of  key  values 
such  that  -IS  £  Ki  £  *15.  Then*  x  *  4,  and  the  first  few 
generated  binary  tree  records  are: 


Record  nna 

Key  (Ki) 

Delta 

Twin  ptr 

Child  ptr 

Direc 

1 

0 

16 

— 

2 

— — 

2 

8 

8 

3 

4 

♦ 

3 

-8 

8 

iv 

6 

- 

4 

12 

4 

5 

8 

♦ 

5 

4 

4 

2* 

10 

- 

6 

-4 

4 

7 

♦ 

7 

-12 

4 

3* 

- 

8 

14 

2 

9 

♦ 

9 

10 

2 

4* 

- 

10 

6 

2 

11 

•* 

11 

2 

2 

5v 

- 

The  asterisks  in  the  twin  pointer  colunn  indicate  the  end  of 
the  ring*  i.e. *  the  parent  pointer.  Vote  that  the  delta 
value  for  each  record  defines  the  distance  froa  the  center 


i 


1 


♦ 


i 

i 
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to  either  end  of  the  line  segaent,  i  -e  delta  is  one-half 
the  length  of  the  interval.  Graphically  this  can  be 
represented  by: 


Becord  nm 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


If  the  key  values  are  dense  in  the  integers,  i.e.,  the 
difference  between  consecutive  keys  is  exactly  one,  then  the 
length  is  halved  each  tine  we  follow  a  child  link  or 
descend  one  level  in  the  tree.  Also,  if  we  follow  the  twin 
link,  unless  narked  as  an  up-link,  we  reaain  at  the  sane 
level  in  the  tree,  but  go  to  the  coaplesentary  line  segaent. 
However,  since  key  values  are  very  rarely  dense  in  the 
integers,  stict  adherence  to  the  notion  of  equal  deltas  at 
the  sane  level  in  the  tree  would  result  in  extra  nodes  which 
have  only  one  child  instead  of  two.  Therefore,  we  elininate 
an  extraneous  node  by  replacing  it  in  the  ring  with  its  only 
child,  lotice  that  now  delta  values  are  not  necessarily 
halved  when  following  a  child  link,  nor  are  they  equal  along 
a  twin  chain.  Thus,  it  be cones  useful  to  explicitly  carry 
the  delta  value  in  the  record  entry. 
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The  binary  tree  as  stored  on  a  secondary  storage  median 
contains  tvo  basic  types  of  records:  terminal  records 
corresponding  to  the  original  data  points,  and  internal 
nodes  or  branch  points  of  the  tree  which  have  been  generated 
dae  to  the  structure  definition.  Bach  record,  accessed 
through  a  pointer  of  value  P,  consists  of: 


1)  a  key  or  coordinate  value  of  the  center  of  the 

interval  K  (p) 

2)  a  delta  value  of  one-half  of  the  length  of  the 


interval 

3)  a  child  pointer 

4)  a  twin  pointer 


Child  (P) 
Twin  (P) 


5)  if  the  record  is  a  terminal,  additional  data 
germane  to  the  original  data  record 

6)  various  flags,  such  as: 

a.  node  or  terminal  indicator 

b.  end  of  twin  chain  in  ring,  and 

c.  the  sign  of  the  difference  between  the  record's 
coordinate  and  the  coordinate  of  the  parent  of 
this  record  as  a  direction  indicator  Q (P) 


Xt  is  obvious  that  construction  of  this  explicit  binary 
tree  generates  overhead  with  the  node  records.  Since  extra¬ 
neous  nodes  have  been  eliminated,  any  record  with  a  non-null 
child  pointer  has  two  children.  To  determine  just  how  much 
overhead  is  generated,  let  t  be  the  number  of  terminals 
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present,  and  let  z  be  the  nnsber  of  generated  nodes.  If  t* 
and  t"  are  subsets  of  t  such  that  t*  =  2**k*  and  t“  =  2**k" 
for  soae  integers  k*  and  k",  then  the  nuaber  of  nodes 
generated  for  the  appropriate  subtrees  are  xa  and  x". 
Applying  the  sunaation  of  a  geometric  progression  with  a 
ratio  of  2,  and  noting  that  any  two  subtrees  aay  be 
connected  with  one  additional  node,  we  obtain: 

x*  ♦  x*  =  <t»  -  1)  ♦  (t-  -  1)  ♦  1  *  t»  ♦  f  -  1. 

By  induction,  then, 

z  =  t  -  1. 

When  storing  the  tree  on  a  secondary  storage  aediua,  it  is 
useful  to  have  a  aaster  node,  the  root,  at  a  location  in  the 
file  that  is  always  known.  The  only  location  that  is  always 
known  is  the  first  one;  therefore,  we  add  an  additional 
node  to  the  structure  as  the  naster  root  record,  which  nakes 
the  total  nunber  of  generated  nodes  equal  to  the  nuaber  of 
terminal  records. 
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Vith  the  structure  as  just  defined,  the  earlier  search 
algorithm  C  is  sodified  to  give  algorithm  T  to  search  for  a 
given  argument  K: 

T1[  Initialize] 

Set  P  :*  root. 

T2[ Compare ] 

Set  D  :*  K  -  K  (P)  . 

If  D  =  0  and  D(P)  =  o,  terminate  successfully. 

CBecord  is  a  node  if  D(P)  >0.] 

If  D  >  0,  go  to  T3; 
else  go  to  T4. 

T3fD  positive] 

If  D  >  D  (P)  ,  terminate  unsuccessfully ; 
else  set  p  :*  Child  (P)  , 
go  to  T2. 

T4[ d  negative  ] 

If  D  <  -D  (P)  ,  terminate  unsuccessfully; 
else  set  P  :*  Twin (Child (P)J , 
go  to  T2. 

■hen  searching  for  a  specific  argument  K,  algorithm  T 
may  seem  unnecessarily  complicated.  Bovever,  if  the  search 
is  for  all  records  with  key  values  in  the  range  K  *  d, 
algorithm  T  may  be  extended  in  the  following  fashion  with  a 
stack,  as  algorithm  H* : 
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B  •  1[ initialize ] 

Set  P  :*  root. 

B*2[Coapare] 

Set  D  :*  K  -  K  (P)  - 
If  D  £  0,  90  to  B*3; 
else  go  to  B*4. 

B*3fD  positive] 

If  D  >  (d  ♦  D  (P) )  *  go  to  B*6; 
else  go  to  B*5. 

B*4[D  negative] 

If  D  <  -(d  ♦  D(P)),  go  to  B»6; 
else  go  to  B*5. 

B»5[Check  overlap] 

If  |D|  £  (d  -  D(P)), 

present  entire  subtree  as  successful, 
go  to  B*6; 

else  set  P  :«  Child (P) , 

push  Twin  (P)  to  stack, 
go  to  B*2. 

B *6[ Pop  stack] 

If  stack  is  eapty,  terminate; 
else  pop  P  :*  top  of  stack, 
go  to  B*2. 


,  i 
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Algoritha  B*  allows  extraction  of  inforaation  froa  the 
binary  tree  structure.  However,  before  any  extractions  can 
be  perforaed,  the  tree  aust  be  built.  After  initialization 
and  definition  of  the  file  by  writing  a  aaster  node  record, 
repeated  insertions  using  algoritha  I*  will  build  the  file. 

1*1[ Initialize  insert] 

Set  K  :*  hey  value  of  record  to  be  inserted. 

Set  P  :«  root  (pointer  to  aaster  node) . 

1*2  Set  D  :*  1C  -  K(P)  . 

Set  Q  :=  sign(D). 

If  |D |  <  D (P) ,  go  to  1*3. 

If  | D|  >  D (P) ,  go  to  1*5. 
otherwise  (|D|  *  D(P)),  so 

if  Q  *  go  to  1*5  (open  end  of  interval) ; 

else  go  to  1*3  (closed  end  of  interval). 

I  *3[  Inside] 

Set  P*  :=  P. 

Set  P  :*  Child  (P)  . 

I*4[RalJc  ring] 

If  Q  «  0(F),  go  to  1*2. 

If  Q  >  Q(P),  set  P  :  =  Twin  (P)  ,  ] 

go  to  1*4; 
else  go  to  1*5. 
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X*5[0utside;  record (I)  to  be  inserted  was  inside  the 
line  segaent  defined  by  node(P')  and  was  on  the  0 
side  of  the  center  of  that  segeent.  The  existing 
child  on  that  saae  side*  record(P),  defines  a  line 
segaent  which  does  not  include  the  new  record  (1) . 
Beplace  record |P)  in  the  ring  with  a  new  node  (P") , 
and  aaJce  the  new  record  (I)  and  record (P)  children 
of  node (PM) .  ] 

Set  D(P*M  D<PM. 

Set  K(P")  s*  K  (P#)  . 

Set  Q  (I)  :*  Q. 

Bepeat  [ Adjust  Becord (P")  ] 

Set  D  (P*)  :*  D(P-)/2; 

If  QJI)  « 

then  set  K  (P*>  :=  K(P")  ♦  D(P"), 
else  set  K  (P*)  :*  K(P")  -  D(P"J; 

Set  Q  (I)  :*  sign  (K  (I)  -  K  (P») ) ; 

Set  Q  (P)  :*  sign  (K  (P)  -  K  (P-) )  ; 
until  Q  (I)  *  Q(P). 


a 


a 
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I*6[ Adjust  pointers] 

If  Q  (I)  <  Q(P)  [■♦■  <  "-■] 
then 

set  Child  (P")  :*  I, 
set  Twin (I)  :=  P, 

set  Twin(P)  :*  P"  and  nark  as  parent; 
else 

set  Child  (P")  :*  P, 
set  Twin  (P)  :*  I, 

set  Twin (I)  :=  P"  and  nark  as  parent. 

The  struct are  and  techniques  just  described  are  such 
too  coa plica ted  for  efficient  application  to  data  keyed  froa 
the  real  line.  However,  the  real  line  is  siaply  the 
degenerate  case  of  the  eventual  goal,  n-diaensional  space, 
and  is  described  in  detail  for  ease  of  illustration.  As 
will  be  seen  in  the  next  chapter,  the  n-diaensional  case  is 
obtained  froa  this  dewelopaent  with  guite  siaple  extensions. 


it 
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CHAPTEB  IT 


GSBEBALIZATIOB  TO  n-DIHEISIO»AL  SPACE 


The  last  chapter  discussed  at  soae  length  a  rather 
unusual  data  structure  for  infornation  keyed  by  a  single 
coordinate.  In  this  chapter *  I  will  present  the  extensions 
to  the  data  structure  and  algorithas  which  provide  for  the 
n-diaensional  case  and  give  the  rationale  for  the  design. 

One  of  the  eore  obvious  guestions  concerns  the  use  of  a 
ring  structure  rather  than  the  usual  binary  tree  linkage  of 
elements.  After  all*  each  record  carries  two  link  pointers 
while  the  ring  has  only  two  elenents.  The  two  pointers 
could  just  as  well  have  been  left  and  right  links*  elimi¬ 
nating  the  reguireaent  to  walk  over  the  positive  record  in 
order  to  access  the  negative  record.  However*  in  extending 
to  a  higher  dimensionality*  the  nuaber  of  pointers  reguired 
to  define  the  structure  increases  exponentially. 

In  particular*  in  n-diaensional  space*  a  given  ring  nay 
contain  up  to  2**n  entries.  The  ring  structure  allows  this 
expansion  of  the  number  of  entries  with  no  additional 
pointer  reguireaents*  while  a  separate  pointer  in  the  record 
for  each  possible  child  rapidly  consumes  an  inordinate 
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aaount  of  space.  The  ring  structure  also  accoaaodates  the 
absence  of  records  very  nicely,  while  individual  pointers 
would  have  null  values  in  nany  cases.  Then  there  are 
additional  physical  liaitations  iaposed  by  the  coaputer 
hardware,  is  an  exanple,  consider  the  IBB  360/370  series  of 
coaputers  which  use  an  address  of  24  bits.  If  individual 
pointers  were  carried  in  a  record,  an  application  with  25 
diaensions,  for  ezaaple,  would  require  a  record  foraat  with 
2**25  pointers.  This  technique  obviously  would  require  a 
record  auch  greater  in  size  than  the  entire  available 
coaputer  aeaory. 

The  overhead  generated  by  the  tree  structure  is  a 
direct  result  of  the  node  records  that  define  the  structure. 
This  overhead  has  been  ainiaized  to  an  extent  by  eliaination 
of  extraneous  nodes,  i.e.,  those  nodes  which  would  have  only 
a  single  child.  I  have  shown  that  in  the  one-diaensional 
case  the  nuaber  of  node  records  is  equal  to  the  nuaber  of 
terainal  records.  For  the  n-diaensional  case,  this  nuaber 
becoaes  an  upper  bound  for  the  worst  case  situation  where 
any  given  node  has  only  two  children.  Bost  nodes  in  the 
n-diaensional  case  will  have  aore  than  two  children;  in 
other  words,  a  twin  chain  will  noraally  be  longer  than  two 
entries,  but  in  no  case  will  the  length  of  the  twin  chain  be 
greater  than  2**n. 
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The  upper  bound  0  for  the  nuaber  of  nodes  in  a  file 
with  t  terainal  records  is  exactly  equal  to  t.  The  lower 
bound  L  is  attained  when  every  node  has  r  *  2**n  children 
or  the  twin  chain  length  is  r.  is  was  done  for  the  one- 
dinensional  case,  t  could  be  broken  down  as  a  sussation  of 
integer  powers  of  r,  but  since  r  subtrees  would  have  to  be 
joined  under  a  junction  node  to  naintain  optiaality,  and  we 
are  only  interested  in  a  lower  bound,  it  is  convenient  to 
assuae  that  t  is  already  an  integer  power  of  r.  Using 
the  sub  of  a  geometric  progression  once  again,  now  with  a 
ratio  of  r  between  successive  terns,  the  lower  bound  is: 

L  -  1  ♦  (t  -  1)/(r  -  1)  . 

For  an  exaaple,  assuae  n  *  2  and  t  *  65,536  *  4**8.  Then 
the  upper  bound  0  *  t  *  65,536  node  records,  while  the  lower 
bound  L  *  21,846  or  roughly  0.3t  node  records.  The  approx¬ 
imate  range  of  0.3t  to  I.Ot  therefore  indicates  the  actual 
nuaber  of  nodes,  ictual  experience  with  a  geographic  data 
file  has  resulted  in  a  file  structure  with  approxinately 
0.7t  node  records. 

These  considerations,  then,  dictate  the  use  of  a  ring 
structure  while  the  record  content  as  given  in  the  last 
chapter  is  extended  for  n  diaensions  as: 

1)  n  key  or  coordinate  values  for  the  center  of  a 

(hyper-)  square  Ki  (P) 

2)  a  delta  value  of  one-half  the  length  of  a  side 

D(P> 
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3) 

a  child  pointer 

Child  (P) 

a  twin  pointer 

Twin  (P) 

51 

application  dependent  data 

for  terainal  records 

6) 

various  flags: 

a.  nod*  or  taraiaal  indicator 


b.  end  of  twin  chain  indicator 

c.  a  quadrant  indicator  of  n  sign  bits  of  the 

difference  between  each  coordinate  of  the 
record  and  the  corresponding  coordinate  of  the 
parent  record  Qi (P) 

Is  an  exaaple  of  the  list  structure  coopered  to  an 
actual  square  froa  a  Cartesian  space,  see  figure  4-1. 

Figure  4-1a  shows  the  exaaple  square,  while  figure  4-lb 
depicts  the  list  as  defined  by  the  node  and  terainal 
records.  The  root  node  A  defines  the  outer  square  which  is 
then  subdivided  by  the  four  children,  B,  C,  D  and  E.  The 
square  defined  by  node  E  is  then  subdivided  further  by  its 
children,  P,  G  and  z  while  the  children  of  B,  C  and  D  are 
not  shown.  Bode  G  is  then  subdivided  even  further  by  H,  x 
and  y.  Again,  the  children  of  P  and  B  are  not  shown.  The 
terainal  record  z  specifies  the  only  data  point  in  the  ”♦-» 
quadrant  of  B,  while  the  " — "  quadrant  is  eapty  as  indicated 
by  the  absence  of  a  corresponding  record  in  the  list. 
Terainal  records  x  and  y  likewise  specify  the  only  data 
points  in  appropriate  quadrants  of  G.  Overall,  the  process 
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of  subdivision  is  continued  until  a  quadrant  of  a  given 
square  contains  a  lone  terminal  record;  a  node  record  is 
never  defined  unless  it  vould  have  at  least  two  children. 

The  n+1-tuple  (K1  (P)  *K2  (P)  *  ...,Kn  (P)  *D  (P) )  ,  where 
each  coordinate  Ki  (P) ,  in  connection  with  D(PJ  ,  defines  a 
half-open  interval  as  in  the  one-diaensional  case *  defines  a 
square  if  n  *  2,  a  cube  if  n  *  3,  and  a  hyper-cube  if  n  >  3. 
Since  a  cube  say  be  considered  a  hyper -square*  and  examples 
are  presented  in  two  diaensions  such  sore  facilely  than  in 
higher  dimensions*  I  shall  use  the  tern  square  in  the 
reaainder  of  this  paper  to  refer  to  the  object  defined  by 
the  n-*  1-tuple.  In  a  similar  vein*  I  shall  use  the  term 
rectangle  when  referring  to  the  object  defined  by  an  ordered 
pair  of  n-tuples;  the  first  n-tuple  is  a  vector  of 
coordinates  defining  the  lover  limits  of  the  intervals  or 
the  lover  left  corner*  while  the  second  n-tuple  is  a  vector 
of  the  upper  limits  of  the  intervals  or  upper  right  corner. 
Bote  that  in  the  case  of  the  rectangle*  the  intervals 
defining  the  sides  are  closed  at  each  end. 

The  rectangle  is  used  primarily  in  conjunction  with  an 
area  search  request,  algorithm  B**  but  is  also  useful  in 
the  insertion  scheme*  algorithm  I*,  by  allowing  the 
rectangle  to  degenerate  to  a  point.  In  both  instances,  the 
algorithms  essentially  ask  the  question*  "Does  a  square  as 
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stored  in  the  file  intersect  with  the  search  rectangle? 

If  it  does,  is  the  square  totally  inside  the  rectangle  or 
vice  versa?"  Let's  ezaaine  the  area  search  first. 

is  will  be  seen  when  algorithm  B*  is  extended  to  n 
dimensions,  the  question  of  intersection  is  as  stated  above. 
See  figure  4-2  for  sone  pictorial  exaaples  of  possible 
situations  with  a  search  rectangle  as  defined  by  X.  Squares 
A,  B,  C  and  D  have  non-enpty  intersections  with  X,  but  there 
is  insufficient  inforaation  to  aake  a  positive  decision; 
the  structure  must  be  examined  further  at  a  finer  level  of 
detail.  Square  E  has  an  enpty  intersection  with  rectangle 
X;  therefore,  we  eay  discard  the  entire  subtree  by 
proceeding  innediately  along  the  twin  chain.  Square  F  is 
totally  enclosed  by  X;  thus,  the  entire  subtree  nay  be 
accepted  as  seeting  the  search  criteria. 

Beturning  to  square  D  for  a  nonent,  there  is  additional 
inforaation  available,  naaely  only  one  particular  child  of 
the  square  could  possibly  be  of  use  to  the  search  request. 

As  will  be  seen,  deternination  of  the  intersection  involves 
arithaetic  on  the  coordinates;  construction  of  a  Q  type  bit 
string  is  very  siaple.  If  such  a  bit  string  is  constructed 
for  each  of  the  liait  vectors,  high  and  low,  and  the  bit 
strings  are  then  identical,  the  only  child  of  interest  will 
be  exactly  that  child  with  the  sane  bit  string  Qi(P) . 


>*■■■ 


Conditions  for  Intersection 
Figure  4-2 
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The  search  application  oses  an  ordered  pair  of  n-tuples 
or  vectors  to  define  the  rectangle,  while  the  insertion 
algoritha  uses  a  single  vector  as  input  for  the  record  to  be 
inserted.  If  we  let  that  single  vector  be  nsed  twice,  i.e., 
as  a  definition  of  a  degenerate  rectangle,  the  saae  set 
intersection  function  nay  then  be  ased  in  the  insertion 
algoritha.  It  will  tarn  out  to  be  useful  to  allow  insertion 
of  terainal  records  with  identical  coordinates,  although 
differing  ancillary  data,  which  can  be  done  by  inserting  a 
node  record  with  a  zero-valued  delta  and  then  chaining  tera¬ 
inal  records  as  children  of  that  node.  If  the  set  inter¬ 
section  function  is  able  to  indicate  whether  the  degenerate 
rectangle  is  totally  inside  the  sgnare  and  vice  versa,  and 
if  both  conditions  are  true,  then  the  identity  intersection 
would  be  indicated.  Note  that  as  a  result  of  the  half-open 
character  of  the  square  definition  intervals  and  the  closed 
nature  of  the  rectangle  defining  intervals,  the  identity 
intersection  technically  could  never  occur.  However,  since 
coaputer  arithaetic  is  finite  in  nature,  the  identity 
intersection  can  occur,  but  only  when  the  intersection  is 
between  a  degenerate  rectangle  and  a  node  with  a  zero  delta 
or  a  terainal,  i.e.,  a  data  point,  which  is  exactly  the 
condition  that  the  insertion  algoritha  will  need. 
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Sin  ce  the  set  intersection  fnnction  is  very  important 
to  both  the  search  and  insertion  algorithms,  and  will  be  an 
extreaely  high-use  section  of  coapoter  code,  it  is  developed 
here  in  detail. 

Let  the  search  rectangle  X  be  defined  by  the  ordered 
pair  of  n-taples  ( (x1,x2, ...,xn) , (y1,y2, ...,yn) )  where 
xi  <  yi.  The  sgaare  1  froa  the  file  is  defined  by  the 
n+1-tnple  (a1,a2, ...,an,d) ,  where  the  delta  value  d  >  0. 

[In  the  following,  the  syabol  &  is  for  logical  "and"; 
the  syabol  I  is  used  for  logical  "or".  ] 

1.  It  least  part  of  the  rectangle  is  outside  of  the 
sguare  if  the  intersection  of  X  and  **A  is  not  eapty.  The 
intersection  is  not  eapty  if  there  exists  an  i: 

(ai  -  d  >  xi)  |  (yi  >  ai  ♦  d)  |  (ai  ♦  d*yi6d#0). 
Rearranging  ter as, 

(ai  -  xi  >  d)  |  (yi  -  ai  >  d)  I  (yi  -  ai  *  d  *  0)  . 

Since  d  i  0  by  definition,  the  two  teras  containing  yi  nay 
be  coabined,  giving 

(ai  -  xi  >  d)  |  (yi  -  ai  >  d  >  0)  . 
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2.  For  the  converse  of  condition  1,  at  least  a  portion 
of  the  square  is  ontside  of  the  rectangle  if  the  intersection 
of  A  and  -«X  is  not  eapty,  which  is  the  case  if  there  exists 
an  i: 

(xi  >  ai  -  d)  |  (ai  ♦  d  >  yi)  . 

Bearranging  terns, 

(ai  -  xi  <  d)  |  (yi  -  ai  <  d)  . 

3.  The  intersection  of  the  rectangle  X  with  the 
square  A  is  eapty  if  there  exists  an  i: 

(ai  -  d  >  yi)  |  (ai  ♦  d  <  xi)  |  (ai  -»d»xi£d#0). 
Rearranging  terns, 

(ai  -  yi  >  d)  |  (xi  -  ai  >  d)  |  (xi  -  ai  =  d  #  0)  . 

As  in  condition  1,  d  t  0  allows  the  coabination  of  the  terns 
containing  xi  giving 

(ai  -  yi  >  d)  |  (xi  -  ai  >  d  >  0)  . 

Figure  4-3  shows  a  flow  chart  of  IHTERSBCTI0N_F0HCTI0» 
after  coabining  the  three  tests;  the  two  Q  bit  strings  are 
also  set  as  appropriate. 


check  high  liait 
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Ugoritbi  I*  say  now  be  extended  to  n  dimensions  to 
give  ns  algoritha  I: 

I1[ Initialize  insert ] 

Set  Ki  :=  coordinate  values  of  record 
to  be  inserted. 

Set  P  :*  root  (pointer  to  naster  node) . 

12  Execute  IHTBBSECTI0N_PDHCTI01I  (record  (P)  ,Ki,Ki)  . 
If  "Ki  is  inside  record  (P)-,  go  to  13. 

If  "Ki  is  outside  record  (P)  ",  go  to  15; 
otherwise  an  identity  intersection,  go  to  I5a. 

I3[  Inside  ] 

Set  P*  :*  P. 

Set  P  :=  Child (P) . 

I4[  Balk  ring] 

If  Qi  *  Qi (P) ,  go  to  12 . 

If  Qi  >  Qi  (P)  ,  set  P  :=  Tvin(P),  f  <  »-■] 
go  to  14; 
else  go  to  15. 

I5a[ldd  a  duplicate  coordinate  record] 

Set  Qi  :=  all 

If  record  (P)  is  a  node,  go  to  17; 
else  set  Pa  :*  P, 
go  to  15. 
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I5[ Outside;  record (I)  to  be  inserted  was  inside  the 
square  defined  by  node(P')  and  was  in  the  Qi  quad- 
rent  of  that  square.  The  existing  child  in  that 
sase  quadrant,  record (P) ,  defines  a  square  which 
does  not  include  the  new  record (I) .  Replace 
record  (P)  in  the  ring  with  a  new  node(P»),  and  sake 
the  new  record  (I)  and  record  (P)  children  of 
node  <P")  .  3 
Set  D(P*»)  :«  D(P»)  . 

Set  Ki(P")  :=  Ki  (P*)  . 

Set  Qi  (I)  :*  Qi. 

Repeat  [Adjust  Record  (P")  ] 

Set  D(P«)  ;*  D(P*)/2; 

For  i  *  1  to  n,  do  begin; 

If  Qi  (I)  * 

then  set  Ki  (P")  ;*  Ki  (P")  ♦  D  (P-)  , 
else  set  Ki(P")  :=  Ki  (P")  -  D  (P")  ; 

Set  Qi  (I)  :*  sign  (Ki  (I)  -  Ki(P")|; 

Set  Qi  (P)  ;*  sign  (Ki  (P)  -  Ki  (P») )  ; 
end; 


until  Qi  (I)  #  Qi  (P) 


Finally*  *•  generalize  algoritha  B*  to  the 


n-diaensional  case  of  algoritha  B: 


Bit  Initialize] 

Set  P  :*  root. 

(li  is  the  low  linit  vector, 

Bi  is  the  high  linit  vector  for  rectangle  X) 

B2[ Conpare ] 

Execute  IHTEBSECTIOB_FOHCTIO!f  (Ki  (P)  ,Li,Bi)  . 

If  ■'intersection  of  Ki  (P)  and  X  is  enpty", 

go  to  B3. 

If  aKi(P)  is  inside  X*,  Present  entire  subtree 


as  successful. 


go  to  B3; 

else  (overlap) 

set  P  :*  Child (P), 
push  Twin  (P)  to  stack, 
go  to  B2. 

B3[ Pop  stack ] 

If  stack  is  enpty,  terninate; 

else  set  P  : *  top  of  stack,  [pop] 
go  to  B2. 
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CHAPTER  T 

AI  APPLICATION  PROGRAMMER 'S  VIEW 
OP  CARTAH 

The  structure  that  has  been  defined  in  the  last  tvo 
chapters  is  concerned  only  with  a  aulti-diaensional  key 
value.  Depending  on  the  specific  application,  the  full 
gaaut  of  additional  inforaation  ranging  froa  nothing,  to  a 
priaary  key  into  another  file,  to  the  entire  data  record 
could  be  carried  in  the  structure.  Since  the  proposed 
structure  is  applicable  to  aany  situations,  it  has  proven 
useful  to  design  a  prograa  that  is  concerned  only  with  the 
structure,  letting  the  particular  application  provide  the 
necessary  drivers  specific  to  their  own  data  and  use  thereof. 

The  data  structure  has  been  naaed  a  Cartesian  Index  as 
a  result  of  one  of  the  earliest  applications,  a  latitude/ 
longitude  index  of  a  geographic  installation  file.  This 
file  consisted  of  records  varying  in  length  froa  320  bytes 
to  4,600  bytes  that  were  keyed  by  a  21-byte  key  for  aany 
purposes.  The  Cartesian  file  structure  was  built  to  provide 
rapid  answers  to  area  search  questions,  but  once  the  instal¬ 
lations  were  determined,  additional  inforaation  was  usually 
required.  Therefore,  the  ancillary  da tun  carried  in  the 


Cartesian  file  in  the  terainal  records  was  the  21-byte 
priaary  key  value  to  be  nsed  for  access  into  the  aaster 
file.  The  Cartesian  file  thus  becaae  a  secondary  index  in 
two-diaensional  space;  hence  the  naae  Cartesian  Index. 

The  naae  of  the  prograa  used  to  probe  the  Cartesian 
Index  derives  froa  IBB  terainology.  IBB  provides  aany 
different  "access  aethods"  to  process  their  various  file 
structures  and  the  prograa  I  aa  describing  herein  is 
intended  to  provide  a  aethod  of  access  to  the  Cartesian 
Index  file;  the  naae  CABTesian  Access  Method  (CABTAH) 
seeaed  appropriate.  In  order  to  sake  CABTAH  readily 
available  to  an  end  user,  it  is  written  as  a  subroutine, 
allowing  the  user's  specific  driver  progress  to  be  written 
in  any  language  supporting  a  CALL  function,  usually  a  high 
order  language. 

Coaaunication  between  the  calling  prograa  and  CARTAH  is 
through  a  set  of  calling  arguaents  or  paraaeters.  Depending 
on  the  function  being  requested,  CABTAH  expects  froa  one  to 
six  paraaeters  as  indicated  by  figure  5-1.  (Function  codes 
are  described  in  detail  later.)  A  28-byte  coaaunication 
block  is  required  for  all  requests  and  is  used  to  pass 
control  and  status  infornation  between  the  driver  prograa  (s) 
and  CABTAH.  It  is  the  only  paraaeter  required  when 
logically  connecting  or  logically  disconnecting  a  file  or 
when  deleting  a  record.  Hhen  inserting  data,  CARTAH  needs  a 


CALL  CABTAH  ( 


9 


9 


9 


) 
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f 


9 


(generic) 

parn 

COBH 

function 

cut 

BLOK 

LOAD 

OPEB 

m 

* 

CL  SB 

[13 

* 

ISBT 

[3] 

* 

GB 

[63 

• 

Gxxx 

[*3 

* 

CH  MG 

[33 

• 

DLBT 

[13 

* 

□  SEE 

COOBD 

LOW 

HIGH 

DATA 

VECTB 

DELTA 

LIBS 

LIBS 

• 

* 

• 

* 

* 

* 

* 

* 

* 

* 

* 

Calling  Sequence  Requirements 
Figure  5-1 


vector  of  coordinate  values  and  the  ancillary  data  defined 
by  the  user  to  be  stored  in  the  terminal  record.  For  all 
retrieval  requests,  CABTAH  returns  a  user-data  field,  a 
vector  of  coordinate  values  and  a  single  delta  value.  The 
GB  request  is  treated  in  a  special  manner  in  that  it  is  used 
to  initiate  a  rectangle  or  area  search  which  requires  the 
two  additional  limit  vectors  defining  the  search  rectangle. 

A  change  request  applies  to  the  user  data  only,  but  CABTAH 
was  designed  to  also  ensure  that  the  coordinates  of  the 
terminal  record  were  not  inadvertently  changed  by  the  driver 
program  which  is  why  the  coordinate  vector  is  a  required 
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argument.  On  the  other  hand,  deletion  of  a  record,  be  it 
terminal  or  node,  is  an  extreme  change  of  coordinates  and 
user  data;  there  is  no  requirement  to  pass  additional  data 
to  C1BTAB  beyond  the  communication  block.  In  all  cases, 
CABT1B  looks  for  the  reqnired  number  of  parameters  and 
ignores  any  additional  arguments  that  nay  be  supplied. 

C1BTAH  will  also  allow,  as  an  optional  zero-th  parameter,  a 
parameter  count  argument  indicating  the  number  of  parameters 
to  be  used.  If  present,  this  parameter  count  will  be  used, 
and  the  actual  number  of  arguments  will  not  be  checked 
further.  Rote  also  that  if  the  parameter  count  is  present, 
the  total  number  of  parameters  is  from  two  to  seven,  as 
opposed  to  one  to  six. 

Before  any  search  queries  can  be  answered,  the 
Cartesian  file  must  be  defined  and  initially  loaded.  It  is 
assumed  that  the  data  set  has  been  allocated  disk  space; 
see  appendix  P.  Definition  of  the  file  consists  of  telling 
CABTAB  how  many  coordinates  are  to  be  stored  in  a  record, 
i.e. ,  the  dimensionality  of  the  file,  and  the  type  of 
arithmetic  to  be  used,  such  as  integer  or  floating  point. 

It  was  intended  that  a  Cartesian  file  should  be  loaded  as  a 
separate  process,  since  certain  efficiencies  are  gained 
thereby;  thus,  the  use  of  the  LOAD  command  to  logically 
connect  and  define  the  file,  followed  by  repeated  use  of  the 
insert  (ISBT)  command  to  store  data  records.  As  this 
information  is  added  to  the  Cartesian  file,  a  new  node 
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record  is  constructed  if  necessary  to  acconnt  for  the 
structure  and  the  new  terainal  record  is  added;  the  relative 
byte  address  of  the  new  terainal  is  returned  to  the  driver 
prograa  for  any  use  that  is  desired.  The  load  process  is 
terainated  and  the  file  is  disconnected  with  the  CLSB 
coaa and. 

Once  the  file  has  been  defined  and  loaded,  subsequent 
processing  is  initiated  with  OPEI  to  logically  connect  it 
and  any  desired  processing  aay  then  be  perforaed.  This 
would  noraally  be  retrievals,  but  the  aaintenance  functions 
of  insert,  delete  and  change  are  also  peraitted.  The  CLSE 
coaaand  logically  disconnects  the  file  as  before. 

This  gives  a  very  rough  idea  as  to  the  various  ways 
that  CAHTAH  is  called.  Since  the  coaaunication  block  is 
considerably  aore  coaplicated  than  the  reaaining  arguaents, 
let  ae  defer  its  description  for  a  aoaent  and  describe  the 
foraats  of  the  other  paraaeters  first. 

The  paraaeter  count  is  always  an  optional  arguaent  in 
those  languages  that  use  the  standard  IBB  aethod  of  indi¬ 
cating  the  end  of  a  variable  length  paraaeter  list,  naaely 
the  high  order  bit  of  the  last  address  set  to  one.  The  IBB 
supported  languages  COBOL  and  POBTBAR  always  flag  the  last 
address,  while  PL/I  noraally  does  not.  An  asseably  language 
prograaaer  has  the  option  of  setting  the  bit  or  not  as  he 
chooses.  If  not,  the  paraaeter  coant  arguaent  aust  be 
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supplied.  The  paraaeter  count  field,  parameter  0,  specifies 
the  nnaber  of  additional  paraaeters  in  the  list,  is  such, 
it  anst  be  a  32-bit  fullword  binary  integer  of  the 
appropriate  value. 

The  user-data  area,  paraaeter  2,  is  an  input  argunent 
to  CABTAR  for  insertions  and  changes,  and  an  output  arguaent 
for  all  retrievals.  The  user  data  is  variable  in  length 
with  two  16-bit  halfword  binary  integer  fields  in  the 
coaaunication  block  controlling  the  actual  length  of  the 
user  data. 

Since  CABTAR  allows  aost  of  the  aodes  of  arithmetic 
normally  used  on  the  1BR  360/370  computers,  the  last  four 
paraaeters  aust  take  into  account  the  length  of  individual 
coordinate  values.  For  instance,  if  the  arithmetic  being 
used  is  halfword  integer,  the  unit  of  size  is  two  bytes, 
while  double-precision  floating-point  arithaetic  uses  eight- 
byte  values.  Therefore,  the  delta  value  is  a  single  unit 
long  as  deterained  by  the  mode  of  arithaetic  while  the 
coordinate  vector  and  the  low  and  high  limit  vectors  are 
each  n  units  long.  The  coordinate  vector  is  an  input  field 
for  insertions  and  changes,  and  an  output  field  for  all 
retrievals,  as  is  the  user-data  area.  The  limit  vectors  are 
explicit  input  fields  for  a  rectangle  search  initiation  (GB) 
and  aust  be  distinct  froa  the  coordinate  vector.  They  are 
not  mowed  to  an  internal  area  by  CABTAR;  the  location 
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pointers  are  retained  and  the  vectors  repeatedly  reaccessed 
daring  subsequent  retrievals  vithin  the  rectangle.  Thus,  the 
liait-vector  values  should  not  be  Modified  during  those 
retrievals  except  for  unusual  circuastances  as  they  aay  be 
iaplicit  input  fields  for  other  retrieval  requests. 

The  renaining  parameter,  the  coaaunication  block,  is 
diagraaaed  in  figure  5-2  and  is  now  descibed  in  detail 
below.  Following  the  descriptions  of  the  fields  are  the 
lists  of  valid  function  codes  and  status  codes  as  returned 
by  CARTA R. 

DOHA HE 

The  eight-byte  logical  naae  of  the  file  to  be  processed 
is  stored  in  DDHAHE.  Since  CABTAH  aust  retain  auch  tore 
than  28  bytes  of  bookkeeping  inforaation,  e.g.,  file  control 
blocks,  buffers,  stack,  etc.,  the  DDRAHE  also  serves  as  a 
label  for  that  additional  aain  aeaory  area. 

Function  Code 

The  four-byte  function  code  carries  the  request  code 
telling  CABTAH  which  function  is  to  be  perforned .  For 
retrieval  requests  it  is  probably  better  to  consider  this 
code  as  a  concatenation  of  up  to  four  subfunction  codes. 

Valid  function  codes  are  described  below. 


DDBAHE 


(8  Bytes) 


Function  Code 
(4  Bytes) 

Status  Code 
(2  Bytes) 

Bode 

HOHT 

Pad 

Relative  Byte 
(4  Byl 

Nuaber  of 
Coordinates 

Address  (BBA) 
tes) 

Buaber  of 
Buffers 

Haxiaua  User 
Area  Length 
(ROAL) 

True  User 

Data  Length 
(TODL) 

Buaber  of 

Disk  Beads 

Buaber  of 

Disk  Writes 

Coaaunication  Block  (28  Bytes) 
Figure  5-2 
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Status  Code 

The  two-byte  status  code  provides  the  indication  as  to 
the  success  or  failure  of  the  CABTAB  request.  A  value  of 
EBCDIC  blanks  is  returned  if  CABTAB  is  able  to  perfors  the 
function  as  requested.  Non-blank  values  signal  unsuccessful 
cospletion  for  a  variety  of  reasons  which  say  or  nay  not  be 
actual  error  conditions.  A  complete  list  of  status  codes 
follows  the  function  codes. 

Node  or  Terminal  Indicator  (NOBT) 

CABTAB  returns  a  character  to  the  driver  prograa  in 
NOBT  on  successful  retrieval  requests  to  allow  differenti¬ 
ation  between  node  and  terminal  records.  The  three  possible 
values  returned  by  CABTAB  are: 

1)  N  -  a  node  was  retrieved 

2)  T  -  a  terainal  record  was  retrieved 

3)  X  -  a  terainal  record  was  retrieved,  but  the  area 

intended  to  receive  the  user  data  was  too  short  to 
accoaaodate  all  ancillary  data  as  stored  on  the  file. 
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Record  RBA 

A  relative  byte  address  (RBA)  is  used  internally  by 
CARTAH  to  bnild  the  structure  pointers.  Rhenever  CARTAH 
successfully  inserts  or  retrieves  a  record,  the  record  RBA 
is  also  returned  to  the  driver  prograa  for  use  if  desired. 

A  Get  Direct  retrieval  function  is  provided  to  allow  direct 
entry  into  the  Cartesian  Index  file.  Bxaeples  of  the  use  of 
this  value  would  be  storage  of  the  RBA  in  the  easter  record 
of  the  priaary  file  as  a  cross-reference,  or  temporary 
retention  of  the  RBA  for  later  retrieval  of  selected  user 
data  not  initially  needed.  As  a  cross-reference  exaeple, 
consider  obtaining  a  record  froa  the  priaary  file  by  soae 
aeans  other  than  coordinate  search  and  then  desiring  to 
find  all  other  records  within  a  certain  distance  as  defined 
by  a  aetric  on  the  coordinates.  Dse  of  the  RBA  to  position 
directly  to  the  corresponding  terainal  record  in  the 
Cartesian  Index  and  then  dishing  the  structure  to  the 
appropriate  level  aay  be  such  faster  than  working  down  the 
tree  froa  the  root. 

The  record  RBA  field  is  also  used  by  CARTAH  to  return 
additional  error  inforaation  whenever  a  disk  operation  was 
unsuccessful.  Refer  to  [3*4]  for  an  explanation  of  those 
codes.  Finally,  when  the  file  is  closed,  CARTAH  returns  the 
high  used  RBA  as  an  indication  as  to  the  aaount  of  space  on 
the  file  that  was  actually  used. 


Haxiaua  User  Area  Length  (HOAL) 


The  halfword  integer  in  the  HOAL  field  specifies  the 
length  of  the  area  that  is  being  provided  by  the  user  for  a 
retrieval  request.  This  nuaber  is  the  aaxiana  nuaber  of 
bytes  that  CABTAR  will  return,  see  WOBT  above,  and  is  also 
the  length  to  which  the  user-data  area  will  always  be  padded 
with  the  pad  character,  see  Pad  below. 

True  User  Data  Length  (TODL) 

The  actual  length  in  bytes  of  the  character  string  in 
the  user-data  area  is  placed  in  the  TODL  field.  This  value 
■ust  be  filled  by  the  driver  prograa  on  an  insert  request. 
For  retrieval  requests,  CABTAR  stores  the  actual  nuaber  of 
of  data  bytes,  not  counting  pad  characters,  that  have  been 
placed  in  the  user-data  area  of  the  driver  prograa.  This 
value  will  never  be  set  by  CABTAR  to  a  value  greater  than 
that  currently  stored  in  the  HOAL  field. 

Ruaber  Beads,  Writes 

Two  halfword  binary  integer  fields  are  increaented  by 
CABTAR  each  tiae  a  physical  disk  read  or  write  is  perforaed. 
These  fields  are  zeroed  out  during  open  processing.  The 
fields  are  aaintained  and  presented  for  inforaation  only. 
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The  regaining  field  definitions  have  leaning  only  when 
CABTAB  is  regnested  to  open  the  file:  function  code  is  LOAD 
for  initial  file  load  or  OPEN.  Other  than  the  lode,  these 
fields  are  alternate  usages  of  the  IOBT  and  BBA  fields. 

Bode  Indicator 

CABTAB  allows  the  user  to  specify  the  type  of  arith¬ 
metic  to  be  used  for  the  coordinates  by  supplying  a  value  in 
the  node  indicator  if  the  function  is  LOAD;  otherwise, 
CABTAB  returns  an  appropriate  value  based  on  the  particular 
file.  Ho  further  reference  is  lade  to  this  field  in  subse¬ 
quent  calls.  The  four  valid  EBCDIC  character  values  are: 

1)  H  -  for  16-bit  halfword  integer  binary, 

2)  P  -  for  32-bit  fullword  integer  binary, 

3)  E  -  for  32-bit  single-precision  floating  point, 

4)  D  -  for  64-bit  double-precision  floating  point. 

Pad  Character 

In  aany  cases,  the  user-supplied  data  being  carried  in 
the  teriinal  records  are  variable-length  character  strings. 
On  a  retrieval  request,  the  driver  prograi  specifies  the 
length  of  the  area  that  is  being  provided  to  receive  this 
user  data.  When  that  area  is  too  short,  CABTAB  so  indicates 
with  an  "X*  returned  in  ROBT.  However,  when  the  area  is 
longer  than  necessary,  it  will  be  padded  out  to  the  end  with 
the  character  supplied  in  the  pad  field  of  the  conunication 


block 


lumber  of  Coordinates 

The  dimensionality  of  the  space  being  represented  is 
determined  by  the  number  stored  in  this  halfword  field,  and 
is  the  number  of  coordinates  carried  in  a  record  of  the  file. 
The  field  is  filled  by  the  driver  program  if  the  function  is 
LOAD  and  filled  by  CABT1H  if  the  function  is  OPEN. 

A  somewhat  arbitrary  limit  of  S12  dimensions  has  been 
imposed,  mainly  because  a  limit  most  be  established  sone- 
where.  Storage  must  be  allocated  for  the  bit  strings 
generated  by  IMTBBSECTIOM_P0VCTIO>,  and  64  bytes  was  chosen. 

A  further  limit  is  that  the  total  length  of  a  coordinate 
vector  must  be  less  than  one-half  the  length  of  a  physical 
record  to  allow  storage  of  at  least  two  logical  records  per 
physical  record. 

lumber  of  Buffers 

CABTAH  obtains  main  aenory  from  the  operating  system  to 
use  as  buffers  or  page  slots  for  dish  input  and  output 
operations.  The  driver  program  may  specify  the  maximum 
number  of  page  mlots  that  are  to  be  acquired  (S  32) .  CABTAH 
always  tries  to  acquire  at  least  four  page  slots. 


valid  Pu net ion  Codes 


LOAD 

LOAD  indicates  to  CABTAM  that  the  file  is  being  defined 
and  opened  for  the  first  tiae  and  that  a  series  of 
insertions  is  forthconing.  The  driver  prograa  asst  specify 
the  aode  of  arithaetic  and  the  nnaber  of  coordinates  to  be 
stored.  The  data  set  referenced  by  the  logical  file  naae 
DDMAHE  nay  be  an  eapty  data  set  or  one  that  had  previously 
been  used.  However,  any  inforaation  present  in  the  file 
will  be  destroyed. 

If  a  file  is  opened  for  LOAD,  the  only  valid  coaaands 
are  ISBT  and  CLSB.  All  others  will  be  flagged  as  invalid 
and  ignored. 

OPEN 

After  a  file  has  been  defined,  loaded,  and  closed  again, 
subsequent  processing  is  initiated  with  OPEN  which  logically 
connects  the  file  to  the  prograa.  All  function  codes  are 
treated  as  valid,  including  ISBT  which  will  extend  the  file. 
If  the  data  set  is  eapty,  the  open  processing  will  fail. 

On  return  froa  a  successful  open,  CABTAR  will  have 
filled  the  aode  and  nnaber  of  coordinates  fields  of  the 
the  coaaunication  block.  A  file  aust  be  opened  before  any 
other  function  codes  will  be  recognized. 


CL SB  requests  a  wrap-up,  including  final  write  of  any 


Modified  records  to  disk.  Opon  successful  return,  the 
record  BBA  field  will  contain  the  high  used  RBI  as  an 
indication  as  to  actual  space  utilization  of  the  file. 

ISHT 

1  new  record  is  inserted  as  a  terminal  record  with  the 
ISBT  request.  If  necessary,  a  new  node  record  is  also 
built.  The  BBA  of  the  new  terainal  record  is  returned  for 
the  driver  progran*s  use  as  desired. 

GH 

This  is  a  request  to  Get  Baster  node  record;  it  would 
be  used  to  start  over  at  the  root  of  the  tree  if  performing 
a  specialized  search  procedure. 

GP 

Clisbing  the  structure  to  a  higher  level  is  accoi- 
plished  by  a  Get  Parent  request.  CARTAB  retrieves  the 
parent  record  of  the  last  record  retrieved. 

GT 

The  next  record  at  the  sane  level  in  the  tree  is 
retrieved  with  a  Get  Twin  request. 

GC 

The  first  record  at  the  next  level  down  in  the  tree  is 
accessed  through  a  Get  Child  request. 
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GD 

If  the  driver  prograa  has  the  record  RBA  available, 
the  corresponding  record  froa  the  Cartesian  file  say  be 
retrieved  directly  with  Get  Direct. 

GM 

The  Get  Hext  record  in  hierarchical  sequence  function 
is  defined  as:  If  the  previous  record  accessed  has  a  child, 
get  that  child;  if  it  has  no  child,  get  the  next  twin;  if 
there  is  no  twin,  i.e.,  the  end  of  the  twin  chain  was 
reached,  get  the  twin  of  the  parent  of  the  previous  record. 
Repeated  requests  using  GH  will  walk  through  the  entire 
file  structure  in  this  sequence. 

GMT 

The  sequence  described  for  GH  is  aodified  by  not 
retrieving  the  child  of  the  previous  record.  GMT  would  be 
used  when  it  had  been  deterained  that  a  subtree  is  to  be 
discarded. 

The  last  seven  function  codes,  GH  through  GMT,  are 
provided  as  priaitives  for  the  unusual  application  that 
needs  to  follow  a  peculiar  search  strategy.  They  will  each 
clear  parentage  if  it  had  been  set  earlier.  The  first  five 
of  these  codes  aay  also  set  parentage  by  adding  a  "P"  as  the 
third  character  of  the  code,  i.e.,  GRP,  GPP,  GTP,  GCP,  and 
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GDP.  Parentage  is  set  to  lisit  a  search  to  a  particular 
subtree  of  the  file  structure  and  is  primarily  used  with  the 
next  three  function  codes. 

GHP 

Onlike  previous  codes  where  a  P  in  position  three  set 
parentage.  Get  Next  in  Parent  uses  a  previously  set  paren¬ 
tage  to  retrieve  records  in  a  hierarchical  sequence  within 
a  specified  subtree.  The  GH  function  will  walk  though  to 
the  end  of  the  file  regardless  of  the  staring  point,  while 
repeated  use  of  GHP  will  traverse  only  the  subtree  as 
defined  when  parentage  was  set. 

If  parentage  has  been  set  by  the  GB  function  described 
below,  CAHTAH  also  perfotas  a  check  using  the 
INTERS ECTIOH_POHCTION  to  determine  if  the  record  intersects 
the  search  area.  If  the  intersection  is  eapty,  the  subtree 
consisting  of  the  record  and  its  children  is  automatically 
discarded  and  the  twin  record  is  insediately  retrieved.  If 
the  record  is  a  node  and  the  intersection  is  liaited  to  a 
single  child  of  that  node,  that  particular  child  is  iaaed- 
iately  retrieved,  and  it  is  noted  that  there  will  be  no  twin 
of  that  record  to  be  retrieved  later.  In  both  cases,  the 
check  by  INTEBSECTION_PUHCTION  is  reapplied  before  returning 
the  record  to  the  driver  prograa.  If  the  intersection  is 
neither  eapty  nor  a  single  child,  the  record  is  returned 
with  the  appropriate  inforaation  fields  filled. 
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61 PT 

Set  Bext  in  Parent,  Twin,  modifies  the  GBP  sequence  by 
skipping  the  child  retrieval  and  discarding  the  subtree. 

This  is  done  when  the  driver  prograe  applies  a  finer 
discrisi nation  on  a  record  than  CABTAH  can  apply  snch  as  a 
true  circle  search  as  opposed  to  a  rectangle  search.  The 
decision  was  sade  to  only  perfora  the  siaple  rectangle 
search  within  CABTAB  since  specific  applications  could 
conceivably  use  any  type  of  aetric  function  for  their 
discrimination  purposes. 

GBPL 

When  the  driver  prograa  makes  the  determination  that  it 
really  knows  that  a  node  record  is  acceptable,  or,  in  other 
words,  it  wants  all  of  the  subtree's  terminal  records  with¬ 
out  bothering  to  apply  its  discriminator,  a  Get  Next  in 
Parent,  Leaves,  series  of  requests  will  flush  the  subtree, 
presenting  terminal  records  only.  The  term  Leaves  is  used 
since  the  character  T  was  used  for  Twin. 


la  area  search  is  initiated  with  either  of  the 
equivalent  Get  Rectangle  or  Get  Area  requests.  The 
IITSR5ECTI0V.P01CTI0R  will  be  nsed  by  CABTAH  to  check 
records  daring  this  GR  and  subsequent  GIPz  requests.  The 
stack  aaintained  by  ClRTlfl  is  flashed  and  the  search  begins 
at  the  aaster  or  root  record,  setting  parentage  for  GHPx. 

GR  L 

If  the  rectangle  search  is  the  exact  search  required  by 
the  application,  placing  an  "L"  in  position  four  will  direct 
CABTAH  to  only  return  the  terminals  that  are  found  inside 
the  search  rectangle  on  subsequent  GNP  or  GR PL  requests. 
After  a  GB  L  request,  GRP  and  GHPL  are  equivalent. 
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CHUG 

If  a  Cartesian  file  was  loaded  with  a  substantial 
aaoant  of  ancillary  data  in  the  terainal  records,  it  is 
useful  to  be  able  to  aodify  that  inforaation  without  having 
to  reload  the  entire  file.  The  CHaNGe  request  tells  CARTAH 
to  replace  the  user  data  in  the  terainal  record  that  had 
been  retrieved  on  the  previous  call.  CARTAH  checks  to  see 
that  the  coordinates  have  not  been  inadvertently  altered  and 
that  the  new  data  string  is  not  longer  than  the  original 
string.  If  the  new  string  is  shorter,  the  terainal  record's 
data  area  will  be  padded  out  to  the  original  length  with 
the  pad  character. 

DLET 

Any  record  in  the  Cartesian  file  nay  be  DeLETed  with 
the  exception  of  the  aaster  root  record.  The  structure 
pointers  are  adjusted  to  logically  reaove  the  record  and  a 
check  is  aade  to  see  if  the  ring  now  contains  only  one  child. 
If  so,  the  parent  of  the  lone  reaaining  child  is  replaced  in 
its  ring  by  that  sole  child.  For  integrity,  CABTAH  requires 
that  the  record  be  retrieved  on  the  previous  call.  Note 
that  either  terainals  or  nodes  aay  be  deleted;  deleting  a 
node  effectively  deletes  the  entire  subtree.  Note  also  that 
CABTAH  has  no  space  reclaaation  capability  —  deleting  a 
record  reaoves  it  froa  the  structure,  but  the  space  is  then 
unavailable  for  any  future  use  until  the  file  is  reloaded! 


Status  codes  as  returned  by  CARTAH 


)Qt  (Tvo  EBCDIC  blanks)  CARTAS  successfully  completed  the 

requested  function.  Hew  inforaation  has  been  updated  as 
appropriate. 

AD  CART AH  did  not  recognize  the  function  code;  invalid  code. 

AI  An  error  occurred  while  trying  to  open  the  file. 

A  nuaeric  error  code  [ 3,  pgs  56-60]  froa  the  operating 
systea  has  also  been  placed  in  the  RBA  field  of  the 
coaaunication  block. 

AJ  A  logical  error  was  detected  during  a  disk  operation . 

A  nuaeric  error  code  [3,  pgs  67-69]  froa  the  operating 
systea  has  also  been  placed  in  the  RBA  field  of  the 
coaaunication  block  as  for  AI. 

AH  A  aode  error  was  detected:  not  H,  P,  E  or  D. 

AO  A  physical  error  was  detected  during  a  disk  operation. 

A  aessage  was  written  to  the  prograa  log  and  a  nuaeric 
error  code  [3,  pg  70]  has  been  placed  in  the  RBA  field 
of  the  coaaunication  block  as  for  AJ . 

AX  Too  aany  coordinates  were  specified.  The  aaxiaua  is 
512  or  a  total  coordinate  vector  length  less  than 
one-half  of  the  length  of  a  physical  record. 
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CZ  An  error  was  detected  on  a  change  request.  The  change 
aust  be  on  a  terainal  that  was  retrieved  on  the  previous 
call,  the  length  of  the  user  data  aust  be  the  saae  or 
less,  and  the  coordinates  aust  not  have  been  altered. 

DX  An  error  was  detected  in  a  delete  request.  The  record 
to  be  deleted  aust  have  been  retrieved  on  the  previous 
call.  The  aaster  root  record  cannot  be  deleted. 

GE  The  requested  record  was  not  found .  GE  is  typically 
returned  daring  GHPx  processing. 

Gfl  There  are  no  aore  records  in  the  subtree  being  flushed 
by  retrieving  only  terainals  while  using  GNPL. 

II  A  duplicate  record,  coordinates  and  user  data,  was 

presented  for  insertion;  the  record  was  not  inserted. 

10  The  user-supplied  data  to  be  stored  with  the  terainal 
record  is  too  long.  The  total  length  of  user  data, 
corrdinates,  and  six  bytes  of  structure  data  aust  be 
less  than  one-half  the  length  of  the  physical  record  as 
stored  on  disk. 

SL  A  short  paraaeter  list  was  presented  to  CABTAfl,  e.g., 
calling  CABTAB  with  only  the  coaaunication  block  and 
user  data  area,  but  not  with  the  coordinate  vector  for 


an  ISBT  or  CBBG 
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CHAPTER  71 


IHSIDE  CARTAH 

POB  THE  HAIHTEHAHCE  PROGRAHHER 


The  previous  chapters  have  developed  the  basic  algo- 
ritha  and  described  the  prograa  1  call  CABTAH  froa  a  point 
of  view  intended  for  a  prospective  user  of  the  systea.  This 
chapter  deals  with  the  fine  detail  required  by  a  prograaaer 
assigned  the  task  of  reiapleaenting  the  systea  on  different 
hardware  or  operating  systea  or  fixing  CARTAH  should  it 
break. 


The  Cartesian  Index  file  is  a  data  structure  aaintained 
on  a  secondary  storage  aedioa*  specifically  a  direct  access 
disk  or  equivalent *  which  predicates  usage  of  soae  sort  of  a 
disk  address  as  the  pointer  value  in  the  node  and  terainal 
records.  The  particular  fora  of  this  disk  address  pointer 
depends  upon  the  specific  choice  of  the  access  aethods  as 
provided  by  IBH.  Since  we  are  concerned  with  randoa  access 
to  disk*  there  are  actually  only  a  few  access  aethods  avail¬ 
able.  The  aost  priaitive  aethod  of  disk  I/O  provided  by  IBH 
is  the  execute  channel  prograa  (EXCP)  access  aethod.  How¬ 
ever*  this  is  rather  too  priaitive  as  I  have  no  desire  to 
reinvent  such  things  as  physical  error  handling  routines* 
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etc.  The  next  alternative  is  the  Basic  Direct  Access  Method 
(BDAfl)  which  would  actually  work  quite  well  except  that  it 
does  not  handle  variable  length  records  with  any  great  faci¬ 
lity.  If  the  records  are  defined  as  relatively  large,  then 
the  internal  blocking  and  deblocking  could  becone  soaewhat 
aessy,  depending  on  the  choice  of  notation  for  the  record 
identification.  As  will  be  seen  later,  though,  BD AM  would 
have  been  guite  acceptable. 

The  iapleaentation  of  CABTAH  as  described  here  uses 
IBM's  Tirtnal  Storage  Access  Method  (YSAM)  [3,4]  for  phys¬ 
ical  access  to  the  disk  file  structure.  VSAM  was  primarily 
intended  as  a  high  perforaance  replacement  for  the  Indexed 
Sequential  Access  Method  (ISAM) ,  but  does  provide  support 
for  three  basic  types  of  direct  access  file  organizations 
which  can  be  used  for  alaost  any  application.  Since  VSAH 
is  used  for  basic  systea  support  in  later  versions  of 
large  operating  systeas  as  supplied  by  IBM,  e.g.,  0S/VS2 
Multiple  Virtual  Storage  (MVS) ,  and  it  isolates  a  prograa 
froa  device  dependencies  better  than  other  aethods,  it 
seeaed  to  be  a  good  choice. 

The  direct  counterpart  to  ISAM  as  provided  by  VSAH  is  a 
key  sequential  data  set  (KSDS)  which  is  used  to  store  data 
indexed  by  a  unique  primary  one-dimensional  key.  However, 
the  whole  intent  of  this  paper  concerns  aulti-diaensional 
keys,  so  we  have  no  appropriate  key  to  suggest  use  of  a  KSDS. 
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VSAH  also  provides  a  counterpart  to  the  BDAH  file  organi¬ 
zation  known  as  a  relative  record  data  set  (RRDS) . 
Unfortunately,  an  BBDS  requires  fixed  length  records  which 
are  referenced  by  "relative  record  numbers",  and  the 
concerns  of  a  BDAH  data  set  are  applicable  here  as  well. 

The  third  structure  supported  by  VSAH  is  an  entry 
sequenced  data  set  (ESDS)  as  a  counterpart  to  the  usual 
sequential  file  organization.  However,  VSAH  does  allow 
randoa  access  to  any  position  in  the  file  by  aeans  of  a 
four-byte  relative  byte  address  (BBA) ,  which  turned  out  to 
be  ideal  for  ay  purposes.  An  ESDS  nay  be  viewed  as  a  unique 
virtual  address  space  defined  by  a  four-byte  address  ranging 
froa  0  to  4,294,967,295.  Early  in  the  developaent  process, 
it  was  intended  to  store  node  and  terminal  records  as 
distinct  records  aaintained  by  VSAH.  However,  as  the 
developaent  proceeded  and  sore  of  the  perforaance  options 
as  provided  by  VSAH  were  incorporated,  it  became  desirable 
to  perform  blocking  and  deblocking  within  CABTAH  rather  than 
VSAH.  This  became  a  very  simple  masking  operation  as  VSAH 
stores  inforaation  on  secondary  storage  in  units  of  control 
intervals  (Cl)  which  may  be  almost  any  size  froa  512  bytes 
to  32,768  bytes,  but  are  physically  stored  as  multiples  of 
a  physical  record  which  aay  be  512,  1024,  2048  or  4096 
bytes  in  length.  One  of  the  performance  options  used  by 
CABTAH  results  in  the  seemingly  reasonable  restriction 
of  limiting  the  CZ  size  to  that  of  a  physical  record  or  a 
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aaxiaua  of  4,096  bytes.  Each  Cl  requires  a  ainiana  of  seven 
bytes  of  control  inforaation,  which  leaves  the  reaainder 
available  for  CABTAH's  use.  Thus,  the  largest  record  that 
aay  be  stored  by  CABTAH  is  4,089  bytes,  but  a  further  liait 
is  rather  arbitrarily  iaposed  to  liait  a  logical  record  to 
no  aore  than  half  of  a  physical  record  in  order  to  store  at 
least  two  inforaation  records  in  one  block.  Keeping  all  of 
this  in  aind,  CABTAH  uses  a  TS AH  ESDS  as  a  logical  aeaory  of 
four  billion  bytes,  storing  the  Cartesian  Index  file  as  a 
linked  list  with  four-byte  BBA  pointer  values. 

An  inability  to  extend  a  data  set's  space  on  disk  is 
due  to  one  of  the  perfornance  options  as  used  by  CABTAH 
which  prevents  iaaediate  usage  of  an  eapty  or  newly  defined 
VSAB  data  set.  Preforaatting  the  data  set  with  zero-filled 
records  the  first  tiae  an  eapty  data  set  is  opened  solves 
the  initial  problea,  and  once  preforaatted,  all  records  in 
the  file  aay  be  retrieved  on  a  randoa  basis  by  relative  byte 
address.  However,  when  the  original  space  allocation  is 
exhausted,  the  data  set  will  not  autoaatically  overflow 
into  secondary  extents  when  records  are  being  inserted.  If 
space  is  exhausted,  there  is  no  choice  but  to  reallocate  the 
file  with  aore  space  and  rebuild.  As  an  indication  of 
the  actual  utilization  of  the  file  space,  the  high  used  PBA 
is  returned  to  the  driver  prograa  when  the  file  is  closed. 


*  ' 
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Heflection  at  this  point  Bakes  it  obvious  that  the 
relative  record  organization  of  7SAH  or  even  the  Basic 
Direct  Access  flethod  say  indeed  be  used.  Careful  selection 
of  the  physical  record  size  to  a  proper  power  of  two  will 
allow  CABTAH  to  operate  with  those  file  organizations  with  a 
ainieus  of  change  to  the  code. 

The  Cartesian  file  is  built  with  two  basic  types  of 
records,  nodes  and  terminals.  As  aentioned  earlier,  these 
records  consist  of: 


1) 

coordinate  value  (s) , 

2) 

a  delta  value. 

3) 

a  child  pointer. 

4) 

a  twin  pointer. 

5) 

user  data  if  a  terainal. 

and 

6) 

various  flags. 

If 

we  exaaine  sone  of  these 

iteas,  we  find  that  first 

all. 

a  terainal  record  always 

has  a  null  child  pointer 

since  terainal  records  are,  by  definition,  those  records 
with  no  children.  The  terainal  record  also  corresponds  to 
an  original  data  point  which  has  a  delta  value  egual  to  zero, 
at  least  in  terns  of  the  file  structure.  The  utility  of  a 
node  or  terainal  flag  now  becones  apparent.  A  single  bit 
serves  to  indicate  the  presence  of  a  child  pointer  and  a 
delta  value  or  the  autually  exclusive  user  data  with,  of 
course,  its  length. 


The  delta  value  as  carried  in  the  record  also  deserves 
soae  attention.  While  studying  the  algorithms,  it  becoaes 
apparent  that  delta  should  probably  be  an  integer  power  of 
two.  In  particular,  consider  a  specific  application  on  the 
coaputer  using  integer  arithmetic.  If  one  starts  with  the 
smallest  non-zero  delta  value  and  proceeds  through  the  tree 
structure  towards  the  root,  the  delta  is  obviously  such  an 
integral  power  of  two.  Egually  obviously,  traversing  the 
tree  in  the  direction  away  from  the  root  requires  integer 
powers  of  two  in  order  to  prevent  "gaps*  doe  to  a  truncated 
division.  If  we  now  examine  the  usual  internal  represen¬ 
tation  of  our  delta  value,  we  find  that,  for  integer  arith¬ 
metic,  delta  is  stored  as  a  fullword  or  halfword  with 
only  a  single  bit  set  to  one  somewhere  in  the  (half)  word. 

A  natural  method  of  storing  this  number  in  less  space  is 
to  use  a  logarithmic  representation,  specifically  log  to 
the  base  of  two.  The  normal  internal  representation  of  a 
floating  point  value  is  normalized  hexadecimal  with  an 
exponent  and  mantissa.  For  an  integer  power  of  two,  this 
mantissa  is  given  by  a  single  hexadecimal  digit  that  is 
always  in  the  leftmost  position  in  the  mantissa;  only  the 
12  high  order  bits  of  a  floating  point  delta  are  ever  other 
than  zero.  Thus,  we  can  store  our  delta  value  in  the  node 
record  in  only  12  bits,  leaving  the  other  4  bits  of  a  half¬ 
word  available  for  soae  flags.  Since  a  delta  value  is 
defined  to  be  a  non-negative  number,  I  use  the  sign  bit  of 


the  representation  to  indicate  whether  delta  is  stored  as  a 
truncated  floating  point  nnaber  or  as  a  logarithm.  There  is 
an  apparent  aabiguity  for  a  representation  of  zero,  since 
it  obviously  cannot  be  stored  as  a  logarithm.  However,  a 
"true  zero"  as  used  by  IBfl  for  both  integer  and  floating 
point  arithsetic  is  stored  as  all  binary  zeroes,  so  it  worts 
out  very  nicely. 

The  Cartesian  Index  file  records  are  now  constructed  as 
follows.  The  length  of  the  user  data  stored  in  a  terainal 
record  is  variable,  but  since  a  terainal  has  a  defined 
delta  of  zero,  we  aay  carry  the  length  of  the  user  data  in 
the  space  otherwise  occupied  by  delta.  The  list  pointers, 
of  course,  are  each  four  bytes  long,  while  coordinate  values 
say  be  two,  four  or  eight  bytes  long,  depending  on  the  node 
of  arithsetic  being  used.  Finally,  after  packing  everything 
together  into  a  record,  we  have: 

I  DLF I  TWIH  I  COORDS... 101  CHILD  f 

t PserPata ...I 

DLF  is  the  delta/length  and  flags  field,  two  bytes  long. 
Expanding  it  out  to  the  bit  level: 

0  111 

io _ 1 ill 

If  bit  15  «  •!•,  then  "end  of  set"  or  record  is  the 
last  record  on  the  twin  chain,  i.e.. 

Til*  actually  points  at  the  parent 
record,  closing  the  ring. 


k  *■ 

t 


k  *1 
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If  bit  1<t  «  *1*,  then  this  record  is  a  node,  and  bits 
0-11  are  the  representation  for  delta, 
if  bit  0  *  *1*,  then  bits  2-7  are  the  log2  (delta) 
and  the  antilog  is  obtained  by 
shifting  a  value  of  1  to  the  left 
this  nany  positions, 

otherwise,  bits  0-11  are  to  be  sowed  to  a 
wort  area  and  extended  with 
zeroes  to  arrive  at  a  represen¬ 
tation  suitable  for  arithsetic. 

If  bit  14  *  *0*,  then  this  record  is  a  terminal  and 
bits  0-11  represent  a  scaled  binary 
integer  value  depicting  the  length  of 
the  user  data  string  stored  behind  Q. 

Bits  12  and  13  are  unused. 

The  TWIR  pointer  is  a  four-byte  field  and  is  present  in 
all  records.  Actual  interpretation  is  aodified  by  bit  15  in 
the  DLP  field. 

The  COORDS  field  contains  the  coordinate  vector  for  the 
record  and  is  a*n  bytes  long  where  a  *  2,  4  or  8  depending 
on  the  node  of  arithsetic. 

Q  is  the  quadrant  indicator  to  label  children  of  a 
parent  node  and  is  a  bit  string  that  carries  the  sign  of 
the  difference  between  coordinates  of  the  record  and  the 
corresponding  coordinates  of  the  parent  record.  The  length 


of  this  field  is  g  bytes  where  g  *  (n  ♦  7)/8  using  truncated 
integer  division.  The  twin  chain  is  also  naintained  in 
sorted  order  using  the  Q  field  as  an  ascending  sort-key. 

The  fonr-byte  CHILD  pointer  appears  only  in  node 
records  and  points  to  the  first  of  two  or  nore  records  at 
the  next  lower  level  in  the  structure.  The  coordinates  and 
delta  of  the  node  record  define  a  sguare  that  completely 
covers  all  of  its  children.  The  records  at  the  next  lower 
level  define  a  disjoint  set  of  sguares  whose  union  is  less 
than  or  egual  to  the  parent  sguare. 

Finally,  the  user-data  field  is  a  variable  length  field 
carried  in  terminal  records  only.  The  actual  length  of  this 
area  is  deterained  by  the  12  high-order  bits  of  DLP. 

The  priaary  argument  in  the  CARTAB  calling  seguence  is 
the  conaunication  block,  which  is  where  CARTAH  receives  all 
reguest  instructions  and  returns  status  and  other  infor- 
aation.  Figure  6-1  shows  the  asseably  duaay  control  section 
(DSBCT)  definition.  As  the  DSECT  is  the  assembly  program's 
view  of  the  communication  block  described  in  the  last 
chapter,  most  of  the  entries  should  be  self-explanatory. 


V 
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COMB BLOK 

DSBCT 

USING 

*,B11 

CBDDHAHE 

DS 

CL  8 

DDHAHE  OF  FILE 

CBFUNC 

DS 

0CL4 

FOBCTIOB  CODE 

CBF0HC1 

DS 

C 

CBFTJHC2 

DS 

c 

CBP0BC3 

DS 

c 

CBPD1C4 

DS 

c 

CB  STATUS 

DS 

CL  2 

BETORH  STATUS 

CBBODS 

DS 

c 

BODE  OF  ABITBBBTIC 

CBHOBT 

DS 

X 

NODE/T ERA INAL  INDICATOR 

CBBBA 

DS 

F 

BBA  OF  BECORD  RETRIED ED/INSERTED 

CBHAXUDL 

DS 

H 

HAXIBUB  LENGTH  OF  USER  AREA 

CBTRUUDL 

DS 

H 

TRUE  LENGTH  OF  USER  DATA 

CB#6ETS 

DS 

B 

COUNTER  FOB  ?SAH  "GETS" 

CBiPUTS 

DS 

H 

COUNTER  FOR  VSAH  "PUTS" 

SPACE 

* 

BEDBPIBITIOB 

IN  EFFECT  HHEN  FUHC  =  "LOAD"/"OPEN 

OBG 

CBBOBT 

cbpad 

DS 

C 

USER  DATA  AREA  PAD  CHARACTER 

CBtXS 

DS 

H 

*  COORDINATES 

CB*BUPBS 

DS 

H 

*  PAGING  BUFFERS  TO  BE  USED 

DSECT  of  Coaaunication  Block 
Figure  6-1 


Id  order  for  CARTAB  to  operate,  it  needs  a  fair  aaount 
of  additional  aain  aeaory  for  control  blocks,  buffers  and 
bookkeeping  inforaation.  CARTAB  aust  also  be  prepared  to 
operate  on  aore  than  one  file  at  a  tine  for  the  driver 
applications.  Therefore,  CABTAH  obtains  additional  aain 
aeaory  for  each  file  that  is  opened.  The  character  string 
passed  in  as  a  DDK ABE  is  used  as  a  label  to  identify  that 
block  of  aeaory  as  it  pertains  to  any  particular  file. 

These  blocks  are  linked  on  a  bi-directional  list  and  the 
proper  file  control  area  as  defined  in  figure  6-2  is 


'\ 
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FCBA BBA 

DSECT 

OSIBG 

*,B  12 

FCBLABEL 

DS 

CL  8 

LABEL  IS  FILE  DDNAHE 

PREVFCB 

OS 

A 

BACKWARD  AND 

HBITFCB 

DS 

A 

FORWARD  LINKS 

IFGACB  DSECT=NO 

GENEBATED  ACB 

ZFGBPL  DSECT~NO 

GENEBATED  RPL 

DS 

OD 

LIACBAB 

EQO 

IFGBPL-IPGACB 

LNRPLAR 

EQO 

•-IFGBPL 

CISIZE 

DS 

F 

CONTBOL  INTERVAL  SIZE 

AVSPAC 

DS 

F 

AVAILABLE  SPACE 

EHDRBA 

DS 

F 

ENDING  BBA 

LBECL 

DS 

F 

LOGICAL  RECORD  SIZE  *  CISIZE-7 

HVHODCS 

DS 

A  (NODEABEA)  FOB  BVCL  INST 

DS 

F 

(FLLNOD) 

BCDADD 

DS 

A 

DS 

F 

(CBLDODd) 

CUBBHBA 

DS 

F 

BBA  OF  BCD  W/  COBE  ADDS  IN  BCDADD 

BDFB4 

DS 

A 

LOCATION  AND 

•SOB POOL 

DS 

OX 

LBGBOF 

DS 

F 

LENGTH  OF  PAGING  AREA 

PHIOHT 

DS 

A 

TOP  OF  LRO  BING 

DELWK 

DS 

D 

EXPANDED  DELTA  FROM  RETRIEVED  BCD 

PR NT DEL 

DS 

D 

EXPANDED  DELTA  FOR  NODEAREA 

SPLTHSKS 

DS 

0XL6 

HASKS  TO  SEPARATE  RBA  *5  INTO 

CIHSK 

DS 

F 

CONTROL  INTERVAL  RBA 

DSPHSK 

DS 

S 

AND  DISPLACEHENT 

DS 

B 

ONOSED 

LODEAHGS 

DS 

0XL6 

SEPARATED  RBA  TO  BE  LOADED 

LODECI 

DS 

F 

LODEDSP 

DS 

H 

DS 

B 

ONOSED 

DSECT  of  FCBAREA 
Figure  6-2  (Part  1  of  3) 
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DIBECa 

DS 

(BAXiBPBS) XL (L'DIRECTRY)  PAGING  DIRECTORY 

BISCFLGS 

DS 

XL3 

BISCL  FLAGS 

ISBTONLY 

EQO 

B  * 1Q0Q000Q 

>•  FILE  OPENED  FOR  LOAD 

FILBXTND 

EQO 

B '01000000 

»*  FILE  HAS  BEEN  EXTENDED 

FBSTISBT 

EQO 

B'00000001 

l*  FIRST  INSERTION  HAS  NOT  BEEN  DONE 

SENDPAD 

DS 

C 

PAD  POR  OSER  DATA  AREA 

XTRAFRH 

DS 

A 

SETFBEGS 

DS 

XL4*80* 

B3 

EX  BASK  FOR  BIT  STRING 

DS 

F'O  • 

R4 

COORDINATE  VECTOR  INDEX 

DS 

A  (QSTBL) 

R5 

BIT  STRING  ADDRESS 

DS 

F 

R6 

INDEX  INCHEBENT 

DS 

F 

R7 

INDEX  LIBIT  VALUE 

SETFADDH 

DS 

A 

B3 

A  (SET&B  .0) 

GRXL3 

DS 

A 

R9 

LON  SEARCH  COORDINATES 

GBxaa 

DS 

A 

RIO 

HIGH  SEARCH  COORDINATES 

GHPLAG 

EQO 

B  *  10000000 

*  IF  SET,  DOING  "GR"  SEARCH 

TRHONLY 

EQO 

B  *01000000 

*  IF  SET,  NANTS  TERBINALS  ONLY 

TBPPHNT 

DS 

H 

POINT  IN  STACK  OF  TEBP  PARENT 

STKPBNT 

DS 

H 

POINT  IN  STACK  OP  PARENT 

STKTOP 

DS 

R 

TOP  OF  STACK 

DS 

1*0* 

ZEROES  TO  CLEAR  BIT  STRINGS 

SETFLGS 

DS 

X 

SET  INTERSECTION  FUNCTION  FLAGS 

SNGLCHLD 

EQO 

B  *  1 000000  0 

r  INTERSECTION  IS  ONE  CHILD  ONLY 

EHPTISET 

EQO 

B*00000 100 

*  INTERSECTION  IS  EBPTY 

SHOT IN X 

EQO 

B'00000010 

*  SOHE  OF  -SQUARE"  OUTSIDE 

XNOTINE 

EQO 

B  *0000000 1 

*  SOHE  OF  SEARCH  OUTSIDE 

QSTBL 

DS 

XL64 

BIT  STRINGS 

QSTBH 

DS 

XL64 

OF  DIFFERENCE  SIGNS 

QSTBO 

DS 

XL64 

DS 

D 

UNUSED 

DS 

D 

PERHANENT  PIECE  OF  STACK 

STACK 

DS 

128D 

BAXSTKL 

EQO 

•-STACK 

DSECT  Of  PCBAREA 
Figure  6-2  (Part  2  of  3) 
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FILECNTL 

DS 

IL32 

PILE  CONTROL  INFORMATION 

OBG 

PILECNTL 

HIDSDBBA 

DS 

P 

C0RRBNT  HIGH  OSED  RBA  (ISRT  OSES) 

FLBODE 

DS 

C 

B  |  F  |  E  |  D 

DS 

C 

ONUSED 

PLiCOOR 

DS 

H 

*  COORDINATES 

PLLCf 

DS 

H 

(PL4COOS)  *  (FLLCOOR) 

DELTA i 

EQO 

0.2 

12  BITS 

SCDPLGS 

EQO 

1.1 

4  BITS 

PABENT 

EQO 

B»0001* 
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located  each  tine  CARTAH  is  entered.  If  a  file  control  area 
cannot  be  located  and  the  function  code  is  other  than  OPEN, 
LOAD  or  CLSE.  a  status  code  of  *AD*  is  returned  indicating 
an  inralid  function  code.  If  an  area  is  located  and  the 
function  code  is  OPEN  or  LOAD,  a  status  code  of  *AD'  is 
again  returned. 
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FCBAB2A  defines  an  area  of  aain  memory  that  is  acquired  on 
a  page  boundary,  i.e.,  an  even  multiple  of  4096.  This  is 
the  aain  work  area  for  CABTAH  for  the  particular  file  being 
processed. 

FCBLABEL  is  the  file  name  from  the  coaaunication  block  and 
is  used  as  the  identifying  label  for  the  work  area. 

PBEVFCB  and  HEITFCB  are  forward  and  backward  links  for  the 
work  area (s)  and  are  anchored  inside  CABTAH  directly.  Since 
the  register  save  area  is  also  inside  CABTAH,  CABTAH  is  not 
re-entrant,  but  is  serially  re-usable. 

1FGACB  and  IPGBPL  are  IBH  supplied  definitions  of  the  access 
control  block  and  request  paraaeter  list  for  the  TSAH  access 
method.  CISIZE  through  LBECX.  receive  inforaation  about  the 
fi"..e  for  later  use.  BHDBBA  indicates  whether  the  data  set 
already  has  inforaation  or  if  it  aust  be  preforaatted ;  if 
so,  AVSPAC  is  used  to  find  out  how  long  the  data  set  is. 

The  four  words  beginning  at  HTNODCS  are  set  up  to  load  the 
control  registers  for  an  H? CL  or  CLCL  instruction,  each  of 
which  requires  two  addresses  and  two  lengths.  The  fourth 
register  also  carries  a  pad  character  as  the  high  order  byte. 

CUBBBBA  is  used  to  retain  the  BBA  of  the  aost  recently 
accessed  terminal  or  node  record.  It  is  primarily  used  for 
checking  on  a  delete  or  change  request. 


B0PB3,  # SOB POOL  and  LNGBOP  refer  to  the  additional  main 
aeaory  obtained  for  inpat/ontpat  buffers  or  the  paging  area. 
PBIOBT  points  at  the  top  of  the  priority  ring  that  is  main- 
tained  for  the  paging  directory  (DIBEC9)  in  a  least  recently 
used  (LB  0)  aasner. 

DELVK  is  the  work  area  for  an  expanded  delta  so  that  it  aay 
be  used  in  arithmetic  statements.  It  is  filled  in  the  LODE 
routine  every  time  a  new  record  is  accessed.  PHNTDBL  is  the 
corresponding  expanded  delta  value  for  the  record  being  con¬ 
structed  in  MODEABEA. 

SPLTHSKS  is  composed  of  CIHSK  and  DSPHSK  which  are  used  to 
split  an  BBA  pointer  into  an  BBA  address  of  the  control 
interval  and  a  displacement.  DSPHSK  -  CISIZE  -  1  because 
CISIZB  is  an  integer  power  of  two  as  defined  by  VSAH.  Then, 
CISSK  is  simply  the  one's  complement  of  DSPSSK. 

The  masks  are  used  as  logical  "and"  masks  against  LODECI  and 
LODE DSP  which  compose  LODEABGS.  The  paging  directory  is 
then  searched  for  LODECI;  if  not  there,  the  oldest  slot  is 
picked  to  read  in  the  proper  control  interval.  The  trans¬ 
lation  is  completed  by  adding  LODEDSP  to  the  page  frame 
address  to  arrive  at  the  main  memory  address  of  the  data 
record  being  referenced. 


BISCPLGS  are  miscellaneous  flags;  use  is  obvious 


XTHAFHH  is  an  extension  of  the  paging  directory.  IBH 
provides  a  PGBLSE  iacro  to  specify  release  of  a  virtual 
aeaory  area.  This  aacro  is  used  in  the  input/output  routine 
as  an  atteapt  to  gain  efficiency  by  releasing  a  virtual  page 
jnst  prior  to  a  read  operation  so  that  the  operating  systea 
will  not  bring  that  page  in  froa  paging  store  siaply  to 
write  over  it  with  a  new  record  froa  dish.  The  paraaeters 
for  PGBLSE  are  the  low  address  and  the  high  address  plus  one 
of  the  area  to  be  released;  these  addresses  are  exactly  the 
page  fraae  addresses  as  stored  in  the  paging  directory  for 
the  page  slot  being  released  along  with  the  address  of  the 
next  slot.  XTBAPRH  provides  that  "next  slot"  fraae  address 
for  the  last  paging  directory  entry. 

SETFREGS  through  GBXHi)  are  preset  values  for  the  general 
purpose  registers  B3  through  BIO  used  in  the  set  intersec¬ 
tion  function.  B3  contains  a  one  bit  aask  to  set  a  position 
in  the  Q  bit  string  as  addressed  by  R5 .  R4  is  the  index 
into  the  various  coordinate  vectors  and  is  increaented  by 
the  value  stored  in  R6  in  a  BXLE  instruction.  R7  contains 
the  liait  for  B4,  i.e.,  (B7)  *  n*  (B6)  -  1.  B8  has  the 
address  of  the  entry  point  into  the  appropriate  arithaetic 
dependent  code  while  B9  and  BIO  point  at  the  lower  and  upper 
liait  vectors.  The  set  function  also  assuaes  that  R1  points 
at  the  current  node  or  terainal  record  being  exaained. 
SETFLGS  carries  the  results  of  the  set  intersection  function 
while  QSTBH  and  QSTBL  have  been  set  according  to  the  arith- 
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aetic  differences  daring  the  coarse  of  the  calculations. 

QSTBO  is  ased  only  daring  insertions  to  adjust  the  coordi¬ 
nates  of  the  new  node  record  being  bailt  as  a  parent. 

THPPBBT  holds  the  location  in  the  stack  that  is  to  be 
considered  a  temporary  parent  for  the  purpose  of  presenting, 
without  farther  checking,  all  terainal  records  in  a  subtree 
that  has  been  accepted. 

STKPBBT  holds  the  location  in  the  stack  that  is  to  be 
considered  the  parent  level  for  Get  Bert  within  Parent  pro¬ 
cessing  while  STKTOP  always  points  at  the  top  of  the  stack. 

STACK  is  a  128  entry  stack  used  to  reaeaber  the  parent 
backtrack  chain  along  with  the  next  twin  entry.  The  parent 
backtrack  trail  is  retained  primarily  for  insertions  to 
diab  the  parent  chain  in  hopes  that  consecutive  insertions 
were  relatively  "close"  to  each  other,  thus  reducing  chain 
chasing  as  auch  as  possible.  The  twin  pointers  are  retained 
for  GBP  processing  to  negate  the  reguireaent  for  input  of  a 
parent  record  solely  to  retrieve  the  twin  pointer  when 
accessing  the  parent's  twin.  Each  entry  in  the  stack  is  two 
words:  the  left  word  carries  the  parent  backtrack  trail, 
the  right  word  carries  the  next  twin.  Upon  exit  froa  CABTAH, 
the  top  entry  of  the  stack  has  zero  in  the  left  position; 
the  right  word  has  the  child  pointer  of  the  record  being 
returned  to  the  driver  prograa,  which  is  zero  if  the  record 
is  a  terainal.  The  second  entry  down  in  the  stack  has  the 
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BBA  of  the  record  being  returned  as  the  left  side  value 
which  will  be  the  parent  as  the  stack  grows.  The  right  side 
of  this  stack  entry  is  the  twin  pointer  froa  the  returned 
record  unless  the  record  is  sarked  as  the  end  of  a  twin 
chain*  in  which  case*  zero  is  stored.  This  entry  is  always 
the  next  twin  for  GIP.  is  the  stack  is  popped*  either 
because  the  child  value  at  the  top  was  zero  or  the  subtree 
is  being  bypassed*  the  twin  value  is  picked  up  froa  the 
right  side  and  stored  in  the  left  side.  The  twin  and  child 
pointers  of  that  new  record  are  then  stored  as  before. 
Obviously*  if  the  twin  pointer  was  zero*  the  stack  is  siaply 
popped  one  aore  level. 

PILECNTL  is  a  32  byte  area  of  control  inforaation  to  be 
stored  on  the  file  at  BBi  *  0-  This  inforaation  is  derived 
froa  data  provided  when  the  function  code  was  LOAD  and  then 
stored  in  the  file.  Vhen  the  function  code  is  OPEN*  these 
32  bytes  are  retrieved  froa  the  file  and  stored  here.  Only 
16  bytes  are  used  at  this  tiae. 

HIOSDBBA  contains  the  nuaber  of  bytes  used  by  CABTAR  for 
insertions.  It  is  the  actual  BBA  of  the  next  available  byte 
in  the  TSAR  file  and  is  obtained  and  updated  whenever  a  new 
record  is  inserted.  If  it  has  changed  since  the  file  was 
opened*  the  control  inforaation  is  rewritten  to  the  file. 

PL RODE  holds  the  EBCDIC  character  defining  the  node  of 
arithaetic:  B*  P*  E  or  D. 
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FLtCOOB  is  a  halfword  integer  value  specifying  the  nuaber 
of  coordinates  (n)  in  a  coordinate  vector. 

PL LCV  contains  the  actual  length  of  a  coordinate  vector 

in  bytes.  (PLLCV)  =  (PL4C00B)  *2,  4  or  8  as  appropriate. 

DELTAS  through  COOBDSS  are  syabolic  equates  defining  the 
internal  record  structure.  QSTBS  would  be  an  equate  to  the 
beginning  of  the  Q  bit  string  in  the  record,  but,  due  to  the 
variable  length  of  a  coordinate  vector,  is  stored  as  a  value 
equal  to  COOBDSS  plus  the  length  of  a  coordinate  vector. 

QSTBLH1  holds  the  length  of  the  Q  bit  string  less  one.  The 
IBH  execute  instruction  requires  this  value  for  proper  oper¬ 
ation.  (QSTBLH1)  *  ( (FLfCOOB)  -  1} /8  using  integer  division. 

CHLDDDS  has  the  displaceaent  to  the  child  pointer  for  a  node 
which  is  also  the  displaceaent  to  the  user  data  for  a  term¬ 
inal  record.  (CHLDODS)  *  (QSTBS)  ♦  (QSTBLH1)  ♦  1 

PLLHOD  holds  the  total  length  of  a  node  for  this  file.  The 
value  stored  in  FLLIOD  is  4  aore  than  that  in  CHLDODS.  In 
order  to  be  able  to  store  at  least  two  logical  records  per 
physical  record  or  control  interval,  the  total  length  aust 
be  less  than  an  arbitrary  2000  bytes  or  one-half  the 
physical  record  length,  whichever  is  saaller. 
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NODE  ABB  A  is  work  space  to  resesber  the  contents  of  a 
possible  parent  record  for  insertions.  That  inf creation  is 
then  sodified  while  constructing  the  actnal  record  that  is 
to  be  entered  into  the  file.  HPLHSG  is  an  overlay  of  the 
last  132  bytes  and  is  used  only  by  VSAD  to  return  an  error 
aessage.  If  such  an  error  had  occurred,  any  teaporary 
record  would  be  useless  anyway. 

Appendix  A  contains  the  entire  asseably  listing  of  the 
CABTAH  routine.  Nithin  the  routine  are  several  logical 
units  that  are  described  here. 

The  LODE  section  of  code  is  a  closed  subroutine  to  con¬ 
vert  an  BBA  to  a  aain  aeaory  address.  The  RBA  is  split  into 
a  control  interval  BBA  plus  a  displaceaent  into  that  Cl.  if 
the  Cl  is  already  in  aeaory,  it  is  logically  aoved  to  the 
top  of  the  LBO  ring,  the  displaceaent  is  added  to  the  proper 
fraae  address  in  B1,  the  delta  is  expanded,  the  twin  pointer 
froa  the  record  is  inserted  in  B2,  and  control  is  returned 
to  the  point  of  call.  If  the  Cl  was  not  in  aain  aeaory 
already,  the  oldest  slot  is  deterained  froa  the  end  of  the 
end  of  the  LBO  ring  and  the  Cl  in  that  slot  is  written  to 
disk  if  it  had  been  aodified.  The  new  Cl  is  then  read  into 
the  fraae  and  treated  as  above.  The  logic  of  this  section 
of  code  was  aodeled  after  the  paging  scheae  as  described  in 
in  BZL  Paging  Services  [9]. 


-83- 


The  overall  logic  of  CABTAH  is  actually  quite  siaple. 

On  entry*  a  search  is  aade  for  the  proper  PCBABEA*  building 
a  new  one  if  necessary*  the  function  code  is  exaained*  and 
control  is  transferred  to  the  appropriate  section,  dost 
retrievals  eventually  go  through  the  BTNVALS  section  which 
aoves  the  coordinate  vector  to  the  driver  prograa*s  area 
along  with  the  user  data  if  the  record  was  a  terminal.  The 
area  receiving  the  user  data  is  padded  out  with  the  pad 
character  in  any  case.  The  expanded  delta  value  is  also 
placed  in  the  proper  location  and  the  BOBT  indicator  is  set. 

A  Get  Raster  record  is  a  request  for  the  aaster  node 
and  would  be  issued  if  the  driver  prograa  wished  to  restart 
an  unusual  search  strategy.  The  stack  pointers  are  reset  to 
put  the  aaster  BBA  in  the  aaster  (-1)  position  of  the  stack 
which  is  then  adjusted  with  twin  and  child  pointers  as  usual. 

The  BBA  for  a  Get  Direct  request  probably  will  not  be 
found  in  the  stack*  but  the  stack  is  checked  just  to  sake 
sure.  Note  that  a  GD  request  will  probably  flush  the  stack 
which  nust  be  considered  in  Get  Parent  and  Get  Next 
requests  . 

The  Get  Twin  and  Get  Child  requests  are  siaple  pops  of 
the  stack.  If  a  zero  value  is  picked  up  after  the  pop*  an 
indication  of  no  record  found  is  returned:  STATUS  >  GC. 

The  Get  Parent  is  slightly  aore  coaplicated  due  to  the 
possibility  of  GD  requests  flushing  the  stack.  If  the  stack 
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is  exhausted  during  the  pop  operation,  the  twin  chain  aust 
be  followed  to  find  the  next  parent  record.  All  of  the 
requests  so  far  described  nay  set  parentage,  in  which  case 
the  location  in  the  stack  of  the  record  being  returned  is 
stored  in  STKPBBT  as  a  parent  Barker. 

The  Get  Next  and  Get  Next  in  Parent  operate  in  a 
siailar  fashion  except  that  GNPx  will  terainate  at  the 
parentage  as  stored  in  STRPBNT  while  GN  will  continue 
through  the  twin  chains  even  after  the  stack  is  exhausted. 
GNPx  processing  is  also  slightly  aore  complicated  because 
the  INTEBSECTIOB_PONCTION  is  used  if  the  search  had  been 
initiated  by  a  GB  request.  If  the  INTEBSECTION_PO NOTION 
deteraines  that  only  one  child  of  a  node  is  useful,  that 
child  is  retrieved  iaaediately  and  the  next  twin  entry  in 
the  stack  for  that  record  is  cleared,  indicating  no  further 
records  along  that  chain.  If  the  record  is  a  node  and  the 
fourth  position  of  the  function  code  is  an  "L",  a  branch  is 
taken  to  the  top  of  this  section  of  code  to  iaaediately 
retrieve  the  next  record. 

The  insertion  algoritha  atteapts  to  take  advantage  of 
resident  records  and  any  actual  proxiaity  of  consecutive 
inputs  by  popping  the  stack,  using  the  parent  backtrack 
trail.  The  stack  is  repeatedly  popped  until  a  node  record 
is  found  which  defines  a  square  that  actually  contains  the 
point  Z  which  is  to  be  inserted.  IHTEBSECT10N_r0BCTI0N  is 
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invoked  in  each  instance  with  the  X  coordinate  vector  used 
as  both  the  low  and  high  limit  vectors.  When  a  good  parent 
has  been  found,  CABTAH  tarns  around  and  descends  the  tree 
structure.  Since  a  node  P  was  found  that  contains  X,  it  is 
known  in  which  direction  X  lies  in  relation  to  the  center  of 
P  because  IHTERSECTIOH_F0HCTIOS  sets  QSTRH  and  QSTRL  in  the 
FCBAREA •  Thus,  CABTAH  walks  the  child/twin  chain  looking 
for  the  child  with  a  matching  Q  string.  If  no  record  is 
found  with  a  matching  Q  string,  X  is  inserted  as  a  terminal 
record  in  the  proper  position  in  the  chain. 

If  a  record  C  was  found  with  a  matching  Q  string, 
IHTERSECTIOH_POHCTIOH  is  invoked  again  to  determine  if  X  is 
inside  C.  If  truly  inside,  CARTAH  treats  record  C  as  the  P 
node  and  loops  back  to  continue  with  the  descent.  If  the 
intersection  was  empty,  a  new  node  must  be  constructed  to 
replace  C  in  the  chain  we  have  been  following.  This  new 
node  becomes  the  parent  of  C  and  the  new  terminal  X  and  the 
coordinate  values  of  the  new  node  are  adjusted  to  ensure 
that  C  and  X  have  differing  Q  strings  in  relation  to  their 
new  parent. 

If  the  intersection  of  C  and  X  was  an  identity  inter¬ 
section,  the  coordinates  of  X  matched  the  coordinates  of  C 
and  C  is  either  a  terminal  or  a  node  with  a  zero-valued 
delta.  If  C  is  itself  a  terminal,  it  is  replaced  in  its 
chain  with  a  new  node  with  a  delta  defined  as  zero  and  both 
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C  and  Z  are  chained  as  children  of  that  new  node.  If  C  was 
a  node  with  zero  delta,  X  is  siaply  added  as  another  child. 

In  this  case,  all  children,  including  c  and  X,  have 
identical  Q  strings,  indicating  an  all  positive  direction. 

Change  and  delete  requests  require  that  the  record  be 
retrieved  on  the  iaaediately  preceding  call  to  CARTAS.  A 
change  allows  only  the  nser  data  to  be  aodified  and  it  aust 
not  be  extended.  To  ensure  that  a  change  request  is  not 
incorrectly  used  to  change  coordinates,  CARTAS  requires  the 
coordinate  vector  which  Bust  still  agree  with  the  record  in 
the  file.  If  the  coordinates  still  aatch,  and  the  record  is 
is  indeed  a  ter a in al,  the  user  data  is  aoved  froa  the  driver 
prograa's  area  into  the  file  record,  replacing  the  user 
defined  data  in  entirety. 

Only  terainal  records  aay  be  changed,  but  both  terainal 
and  node  records  aay  be  deleted.  A  record  is  logically 
deleted  by  adjusting  the  pointers  to  skip  over  it.  Space  is 
not  reclaiaed!  After  the  pointers  have  been  adjusted,  the 
length  of  the  chain  is  exaained  to  ensure  that  the  chain  is 
at  least  two  aeabers  long.  If  the  chain  has  only  one  aeaber , 
the  parent  of  the  chain  is  replaced  in  its  ring  by  the  sole 
renaining  child. 
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CHiPTEB  VII 

CABTAR  IB  OSE 

The  preceding  discussion  gave  soie  general  search 
algorithms  with  no  particular  rationale  behind  them.  Let  us 
look  at  soae  specific  applications  that  have  been  inple- 
■ented  at  Headquarters,  Strategic  Air  Command.  Our  computer 
environment  is  an  IBH  System  370,  Model  3033,  using  OS/TS2, 
Multiple  Virtual  Storage  (MVS)  as  the  operating  system. 
Secondary  storage  consists  of  IBM  3330  Model  1  and  Model  11 
disks  and  IBH  3350  disks.  In  all  of  my  examples,  the  data 
are  points  on  the  surface  of  the  earth  defined  by  latitude 
(lat)  and  longitude  (lng) . 

The  first  file  is  stored  on  18  cylinders  of  a  3330  disk 
volume  and  contains  roughly  100,000  terminal  records  as  data 
points,  each  carying  an  average  of  15  bytes  of  user-defined 
information.  The  latitude  and  longitude  in  this  file  are 
stored  as  arc  seconds  in  signed  binary  integers  with  the 
convention  of  north  and  east  positive.  The  driver  program 
to  load  this  file  executes  in  approximately  55  seconds  of 
central  processor  (CP0)  tine  and  15  minutes  elapsed  time  in 
our  normal  batch  production  multi-programming  environment. 


\ 
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The  aetric  function  used  to  calculate  distance  on  the 
earth  is  an  iapleaentation  of  a  great  elliptic  evaluation 
which  provides  geodetic  distance  in  aeters;  see  appendix  B 
for  a  discussion  of  VECTOR .  Since  this  aetric  function 
tends  to  be  expensive  in  computation,  an  estiaator  value  has 
been  devised  which  provides  an  estiaated  radius  in  aeters  of 
a  circle  guaranteed  to  coapletely  enclose  the  square  defined 
by  a  node  or  terainal  record's  coordinates.  The  value  of 
this  estiaator  E  is: 

E  =  45.0  >  43.645  =  sgrt (2) *  (1852  aeters/60  arc  secs) 
(1852  aeters  per  nautical  aile; 

1  nautical  aile  per  arc  ainute; 

1  arc  ainute  per  60  arc  seconds) 

It  aight  sees  that  a  better  estiaate  of  the  radius  for 
a  circumscribing  circle  could  be  obtained  by  using  VECTOR 
to  aeasure  the  distance  froa  the  center  of  the  square  to  the 
lower  left  corner  for  exaaple.  Onfortunately ,  soae  of  the 
nodes  near  the  root  of  the  tree  carry  latitude  values  in  the 
range  of  145°.  9ith  VECTOR  calculating  geodetic  distance, 
a  auch  saaller  number  than  expected  is  the  result.  Since 
search  strategies  will  not  be  attempting  any  accurate  deter¬ 
mination  of  the  inclusion  of  an  area  inside  a  node-defined 
square,  rather  the  reverse,  the  upper  bound  approach  with 


E  was  chosen 
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Probably  the  simplest  application  of  CABTAH  is  to 
search  for  those  data  points  within  an  arbitrary  circle. 

As  a  first  approxiaation  to  the  desired  circle  with  center 
coordinates  (Iat0,lng0) ,  define  a  search  rectangle  to 
enclose  the  final  desired  circle.  The  delta  latitude  value 
is  the  appropriate  nuaber  of  arc  seconds  equivalent  to  the 
circle  radius  (DO) ,  while  the  delta  longitude  is  that  saae 
nuaber  of  arc  seconds  divided  by  the  cosine  of  the  latitude 
to  allow  for  convergence  at  the  poles.  Therefore,  the  liait 
vectors  are: 

lvec  =  (latl,lngl)  and  hvec  =  (lath,lngh)  where 
latl  *  latO  -  DO,  lngl  =  IngO  -  (DO/cos (latO) ) , 
lath  *  latO  ♦  DO,  lngh  =  IngO  ♦  (DO/cos  (latO) ) . 

See  figure  7-1  for  the  conditions  that  will  be  tested  by 
algoritha  CS  below.  Within  the  diagraa: 

line  AZ  =  DELTA  (A)  *  E 

line  BY  =  DELTA  (B)  *  E 

line  CZ  =  search  radius  =  DO 

line  CA  -  VECTOR  distance  froa  C  to  A 

line  CB  =  VECTOR  distance  froa  C  to  B 

square  A  is  inside  search  circle  because 
CA  <  CZ  -  AX 
AZ  <  CZ  -  CA 


AZ  <  -(CA  -  CZ) 


AD-AQ9Q  764 
UNCLASSIFIED 


AIR  FORCE  INST  OF  TECH  WR I 6HT-P ATTERSON  AFB  OH  F/6  8 /Z 

CARTAM.  THE  CARTESIAN  ACCESS  METHOD  FOR  DATA  STRUCTURES  WITH  N - ETC(U) 

1979  S  V  PETERSEN 

AF IT-79-2250  NL 
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square  B  is  ootside  search  circle  because 
CZ  <  CB  -  BT 
BY  <  CB  -  CZ 

Boeing  *GB"  to  the  function  code  initially,  we  have: 
Bepeat 

CALL  CABTAB  (COHH_BLOK ,  USEBJJATA, 

COOBDS,  DELTA, 
leec,  heec)  ; 

if  STATUS_CODE  *  SPACES,  then  begin; 

Set  AX  :*  E  *  DELTA; 

Set  CA  ;«  VECTOB (Iat0,lng0,lat1 ,lng1) ; 
if  AX  i  CZ  -  CA,  then  begin; 

/*  sgnare  A  for  ex an pie  */ 
Set  rtIHC  :=  •GHPL*; 
repeat 

if  TEBBINAL,  then 

Present  terminal  records 
as  successful; 

CALL  CABTAB  (COBB.BLOK,  USES  J>  AT A, 
COOBDS,  DELTA) ; 
until  STATUS .CODE  #  SPACES; 

Set  PUBC  :*  *GHP  •; 
if  STATUSJCODE  «  »GB» ,  then 
Set  STATUS.CODE  :«  SPACES; 
end; 


u.  • 
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else 

if  iX  <  Cl  -  CZ,  then 
Set  FOBC  :«  •GIFT* ; 

/*  discard  subtree  (square  B)  •/ 

else 

Set  POHC  :«  'GBP  •; 

/*  to  ezasine  next  level  down  */ 

end; 

until  STATUS_CODE  *  SPICES; 

This  algorithn  asks  CABT1H  for  successive  nodes  and 
terninals  inside  an  initial  search  rectangle,  is  a  record 
is  returned  by  CABTlfl,  it  is  checked  to  see: 

1)  if  it  is  entirely  within  the  final  circle*  then  all 
terninals  of  the  subtree  are  presented  as  found; 

2)  if  it  is  entirely  outside  the  final  circle*  the 
subtree  is  discarded; 

3)  if  neither  condition  is  net*  the  tree  structure  is 
descended  one  sore  level  to  exaaine  the  children. 

The  process  is  continued  until  no  aore  nodes  or  terninals 
renain  in  the  search  rectangle  to  be  exanined.  see 
appendix  G  for  a  COBOL  progran  written  for  this  task. 

This  particular  driver  progran  with  the  highly  original 
naae  of  OVBTSHB  (variant  of  OISTXHE)  has  been  used  exten¬ 
sively  as  a  test  vehicle  during  the  developaent  of  C1BT1H. 

It  was  written  to  display  the  results  of  a  primitive  circle 
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search  as  applied  against  the  installation  index  file. 

Inpat  is  the  Cartesian  Index  file  which  is  to  be  searched, 
and  a  file  of  control  cards,  each  of  which  contains  the 
latitude  and  longitude  of  the  center  of  a  search  circle. 

Test  runs  hawe  usually  been  nade  with  a  10,000  foot  radius 
for  the  search.  The  overall  logic  consists  in  reading  a 
control  card,  searching  the  Cartesian  file  for  all  data 
points  within  10,000  feet  and  printing  the  accepted  records. 
This  procedure  is  then  repeated  for  each  card  in  the  input 
file.  Figure  7-2  presents  a  table  of  selected  statistics  as 
an  indication  of  performance.  The  table  is  cumulative  in 
nature;  the  different  lengths  of  runs  are  froa  ternination 
at  specified  nuabers  of  control  cards.  For  exaaple,  the 
statistics  for  300  points  were  obtained  by  extending  the  200 
point  run  by  100  note  points.  The  entries  for  nunber  of 
reads  are  the  nuabers  of  physical  dish  accesses  that  were 
aade  for  each  control  card  read  daring  the  run. 

In  obvious  extension  to  the  circle  search  is  a  search 
for  those  installations  inside  the  area  defined  by  the 
aatheaatical  union  of  k  circles  as  shown  in  figure  7-3 a . 

Is  aodify  algoritha  CS  by  defining  the  search  rectangle  to 
include  all  circles  and  checking  distances  to  the  center  of 
each  circle  instead  of  just  the  one;  initially  setting  a 
flag  to  indicate  "outside-all-circles",  a  loop  is  executed 
on  the  netric.  Once  again  aoving  "GB"  to  the  function  code 
initially,  we  now  have: 


Inclusion  Area  Search  Example 
Figure  7-3a 


Exclusion  Area  Search  Example 
Figure  7-3b 
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Set  ACCBPT_SQOABE  :«  "inside-a-circle*; 

Set  REJECT_SQOARE  :*  •outside-all-circles"; 

■•peat 

CELL  CARTAS  (COHH_BLOK,  GSBR_DATA. 

COORDS.  DELTA, 
lvec.  hvtc}  ; 

if  STATOS_CODB  *  SPACES,  then  begin; 

Set  AX  :*  B  *  DELTA; 

Set  flag  :■  ■oatside-all-circles*; 
for  i  ■  1  to  n.  do  begin; 

Set  CA  :*  VECTOR (lati.lngi.latl.lngl) ; 
if  AX  S  Cl  -  CA,  then 

Set  flag  :*  *inside-a-circle" 

else 

if  AX  >  CA  -  CZ.  then 

Set  flag  :»  "oeerlap-a -circle-; 
end; 

if  flag  ■  ACCSPT.SQQARB.  then  begin; 

Set  PCBC  :«  •G«PL»; 

repeat 

if  TSRRZVAL,  then 

Present  terainal  records 
as  snccessfol; 

CALL  CARTAS  (COSS.BLOR.  OS  EB  JUT  A, 
COORDS.  DELTA)  ; 
until  STATOS_CODE  4  SPACES; 
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Set  roic  :*  'GBP  *; 
if  ST1TOS.CODB  *  *GH • ,  then 
set  STATOS.CODE  :«  SPACES; 

end; 

else 

if  flag  *  BE JECT_SQU1RB ,  then 
Set  POBC  :*  »GBPT»; 

/*  discard  subtree  */ 

else 

Set  POBC  :»  'GBP  •; 

/*  to  ezanine  next  level  down  •/ 

end; 

until  STATU S_CO DB  *  SPACES; 

The  converse  exclusion  search  strategy  as  shown  in 
figure  7-3b  is  identical  except  that  "inside-a-circle"  is 
no*  the  discard  criterion ,  while  "outside-all-circles" 
becoaes  the  present  successful  terninals.  Bote  that  the 
distance  check  loop  say  be  terninated  iaaediately  if  the 
flag  ever  becoaes  "inside-a-circle".  If  the  loop  terainates 
with  the  flag  still  set  at  the  initial  value ,  the  subtree  is 
to  be  discarded.  A  rather  neat  prograaaing  dodge  is  to  use 
CAST AH *s  function-code  as  the  flag  for  the  various 
conditions.  Appendix  B  contains  the  COBOL  prograa  which 
perf oras  this  sort  of  search . 
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Algorithm  CS  say  also  be  readily  extended  to  provide  a 
band  search,  at  least  in  Cartesian  space  with  a  Euclidian 
aetric  [d  *  SQBT(x2  ♦  y2)  ].  A  band  search  is  defined  as  the 
retrieval  of  all  records  within  a  given  distance  of  a 
straight  line  passing  through  an  appropriately  defined  "GB" 
search  rectangle.  As  an  exaaple  in  two  diaensions  and 
assnaing  the  appropriate  nnits,  the  equation  of  the  line  is 
given  by:  Ax  ♦  By  ♦  C  *  0.  normalizing  this  equation  by 
dividing  by  the  SQBT  (A2  ♦  B2)  results  in  a  aetric  function 
where  the  distance  is  deterained  by:  d  *  ax  ♦  by  ♦  c.  The 
estiaator  B  for  a  square  defined  by  a  file  record  is  then 
given  by:  E  *  |a|  ♦  |b{,  which,  when  aultiplied  by  the 
delta  of  the  file  record,  gives  the  distance  froa  the  center 
of  the  square  to  a  line  parallel  to  the  search  line  and  that 
also  passes  through  an  appropriate  corner  of  the  square. 
Therefore,  by  replacing  the  two  lines  of  algor ithn  CS  as 
read: 

Set  AX  :*  E  *  DELTA; 

Set  CA  :*  VECTOB  (Iat0,lng0 ,lat 1 ,lng 1)  ; 

with: 

Set  AX  :«  (|a |  ♦  |bf)*  DELTA; 

Set  CA  :*  |a*Xt  ♦  b*T 1  ♦  c| ; 
we  now  have  a  band  search  for  Cartesian  space  with  a 
Euclidian  aetric. 
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Since  CABTAB  leaves  the  Unit  vectors  available  to  the 
driver  prograa  at  all  tines,  a  soaewhat  aore  extensive 
aodification  of  algoritha  CS  suggests  itself  for  a  nearest 
neighbor  search,  by  continually  reducing  the  size  of  the 
search  circle.  As  the  search  circle  can  be  legitiaately 
reduced  only  when  a  terninal  record  is  exaained,  initialize 
the  function  code  to  *6B  L*  to  retrieve  terainals  only. 

Then  the  following  algoritha  will  find  the  closest  terninal 
record  within  an  initial  distance  CZ: 

latl  :=  latO  -  CZ;  lngl  :*  IngO  -  CZ/cos  (latO)  ; 

lath  :*  latO  ♦  CZ;  Ingh  ;*  IngO  ♦  CZ/cos  (latO) ; 

CALL  CABTAH (COHH_BLOK,  0SBB_DATA, 

COOBDS,  DELTA,  lvec,  hvec)  ; 

Set  function  code  s*  •GMPL*; 
while  S TATOS_CODE  *  blanks  do  begin; 

Set  CA  :=  VECTOR (latO, IngO, latl , lngl) ; 

if  CA  <  CZ  then  begin; 

Set  CZ  :*  CA; 

latl  ;*  latO  -  CZ;  lngl  :-  IngO  -  CZ/cos (latO) 

lath  :*  latO  4  CZ;  lngh  :*  IngO  ♦  CZ/cos (latO) 

Save  terninal  information; 
end  ; 

CALL  CABTAB  (COBB_BLOK,  OSEBJJATA, 

COORDS,  DELTA)  ; 


end 
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When  this  algorithm  terminates,  the  last  terminal 
record  saved  will  be  the  terainal  closest  to  the  initial 
search  coordinates.  Conceptually,  terminals  in  the  upper 
right  guadrant  ("♦♦■  direction)  are  successively  exaained, 
reducing  the  size  of  the  search  circle  (probably)  each  tiae, 
until  the  closest  terainal  in  that  guadrant  is  found.  Then 
ezaaination  of  the  reaaining  guadrants  proceeds  very  quickly. 

One  final  ezaaple  has  to  do  with  a  plotting  application, 
in  particular  the  presentation  of  aaps  with  various  levels 
of  detail  upon  a  graphical  display  device.  If  a  particular 
area  of  the  world  were  to  be  presented  every  tiae  aaps  were 
reguested,  it  would  be  a  siaple  aatter  to  construct  a  sub- 
iaage  for  display  and  call  it  up  froa  secondary  storage  as 
reguired.  However,  if  the  areas  to  be  napped  are  defined  by 
Units  specified  at  run-time  along  with  user-deterained 
levels  of  detail,  the  nuaber  of  pre-built  aaps  becoaes 
prohibitive  due  to  the  geoaetric  explosion  of  coabinations. 
The  obvious  soultion  is  to  build  the  aaps  upon  request. 

Our  second  exaaple  file  is  built  in  the  Cartesian  Index 
foraat  for  this  purpose,  containing  as  data  the  set  of 
plot table  points  defining  coastal  and  country  boundaries. 
There  are  approxinately  100,000  points  in  this  file  also, 
but  this  tiae  our  latitudes  and  longitudes  are  single 
precision  floating  point  nuabers  expressed  as  arc  radians. 

The  terainal  user-defined  information  contains  a  sequence 
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nuaber  for  its  relative  position  along  the  plotted  line 
as  well  as  a  coastal/country  boundary  indicator.  Once  the 
application  prograa  deteraines  the  aap  liaits  froa  the  user 
for  the  session,  CABTAM  is  requested  to  retrieve  those 
points  within  the  rectangle  defined  by  those  liaits.  Using 
the  user -defined  data  stored  with  the  terainal  records, 
these  points  aay  then  be  sorted  internally,  plotted  and 
displayed  on  the  screen. 

Using  CABTAM  to  retrieve  aap  points  for  construction  of 
background  naps  has  resulted  in  a  drastic  reduction  in  aap 
preparation  tiae.  This  is  aptly  illustrated  by  a  consent  in 
an  internal  docuaent,  STAMPS  Graphics  Utilities  User's 
Manual,  1  February  1977.  "Since  creation  of  an  iaage  of  a 
aap  background  requires  a  considerable  aaount  of  tine  (up  to 
five  ainutes  CPU)  it  would  be  iapractical  and  inefficient  to 
build  these  backgrounds  on-line.  ...  the  tiae  required  to 
build  the  aaps  would  prohibit  using  then  on  the  systea." 
while  the  "five  ainutes"  refers  to  CPU  tiae  for  an  IBM 
Systea  360,  Model  85,  and  current  experience  has  been  on  a 
Systea  370,  Model  3033,  the  saae  aap  backgrounds  are  now 
being  built  in  roughly  five  seconds  elapsed  tiae.  The  per- 
foraance  has  iaproved  to  the  extent  that  pre-built  aaps  are 
no  longer  used;  in  fact,  as  the  application  user  desires  to 
exanine  a  saaller  area,  the  aap  liaits  are  recoaputed  and 
the  aap  backgrounds  are  coapletely  redone  each  tiae. 


CHAPTER  Till 


ASSESSHENTS  A»D  BBCOHHBMDATIOltS 


The  past  few  chapters  have  described  the  use  of  the 
CABTAH  routine  and  the  associated  Cartesian  Index  Pile  with 
soee  examples  of  actnal  applications.  These  exaaples  have 
been  United  to  two  diaensions,  specifically  latitude  and 
longitude  on  the  surface  of  the  earth,  but  there  has  been  no 
intention  to  iaply  that  CABTAH  is  liaited  to  two  diaensions. 
■or  is  it  necessary  that  the  coordinate  values  carry  the 
sane  units,  such  as  arc  aeasure  in  the  case  of  latitude  and 
longitude.  A  better  separation  would  be  obtained  if  each  of 
the  coordinates  are  scaled  such  that  the  ranges  of  values 
are  approximately  the  sane,  but,  again,  there  is  no  hard  and 
fast  requireaent  iaposed  by  CABTAH.  As  an  exaaple,  the 
installation  file  that  was  described  earlier  can  very  easily 
be  defined  with  three  coordinates  instead  of  two  by  adding 
a  coordinate  carrying  a  nuaeric  representation  of  a  category, 
for  instance.  Effectively,  this  would  separate  the  instal¬ 
lations  into  categorical  layers  which  nay  prove  extreaely 
useful  in  soae  cases.  Since  CABTAH  does  not  apply  any 
specific  aetric  function  to  the  records,  the  nuaber  and  type 
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of  coordinates  is  totally  at  the  discretion  of  the  user  who 
nay  then  apply  whatever  aetric  function. is  deened  appro¬ 
priate  for  discriaination. 

I  final  thought  has  to  do  with  possible  optiaizations 
of  the  Cartesian  file  for  large  read-only  applications.  The 
file  as  built  by  repeated  insertions  tends  to  have  pointer 
chains  spread  randoaly  over  the  file*  which  increases  the 
nuaber  of  physical  retrievals  froa  secondary  storage.  One 
possibility  would  be  to  recopy  the  Cartesian  file  once  it 
had  been  coapletely  loaded.  The  initially-loaded  file  would 
be  read  in  the  Get  Meat  hierarchical  sequence  and  copied  in 
that  order  onto  the  final  file.  This  would  allow  any 
searches  using  the  *GllPa  philosophy  to  proceed  in  a  aono-  , 
tonic  Banner  through  the  final  Cartesian  file.  The  other 
alternative  night  be  to  recopy  the  initial  file  in  such  a 
way  as  to  group  as  nany  nodes  of  the  sane  level  on  the  sane 
physical  record  (control  interval)  as  possible*  building  a 
aany-way  tree  a  la  Knuth  [8*  pg  471].  The  usefulness  of  this 
nay  be  open  to  conjecture  if  the  aajority  of  the  searches 
are  snail  circle  searches*  since  this  type  of  search 
proceeds  down  a  single  path  of  the  tree  for  several  levels. 


The  CABTAH  routine  has  proven  itself  as  a  very  useful, 
generalized  aetbod  to  construct  a  aulti-diaensionally-keyed 
file  and  provide  eztreaely  rapid  access  to  desired  records 
therein.  The  progress  have  been  iapleaented  in  deaonstrated 
efficient  code  and  have  proved  theaselves  in  a  variety  of 
coaplex  applications.  Hith  the  help  of  this  docuaent, 
additional  applications  of  these  techniques  should  be  very 
straightforward  with  iapleaentation  in  a  ainiana  of  tiae. 


105- 


LIST  OP  REFERENCES 


1.  Bveritt ,  Brian,  Cl aster  Analysis.  John  Riley  6  Sons, 
lew  Iork •  (Printed  in  Great  Britain)  1974 

2.  International  Business  Bachines  corp.,  IBB  Systea/370, 
Principles  of  Operation.  5th  ed.  GA22-7000-5,  1976 

3.  _ .,  OS/VS  virtual  Storage  Access  Bethod  (VSAB) 

Prograaaer *s  Guide.  3rd  ed.  GC26-3838-2,  1976 

4.  _ .,  OS/VS  Virtual  Storage  Access  Bethod  (VSAB) 

Options  for  Advanced  Applications.  4th  ed. 

GC26-3819-3,  1976 

5.  _ .,  OS/VS2  Access  Bethod  Services.  2nd  ed. 

GC26— 384 1—1 ,  1976 

6.  _ .,  OS/VS2  Supervisor  Services  and  Bacro 

Instructions •  1st  ed.  GC28-0756-0,  1976 

7.  _ .,  0S/VS2  System  Prograaaing  Library:  Data 

Banageaent.  4th  ed.  GC26-3830-3,  1977 

8.  Knuth,  Donald  B.,  The  Art  of  Coaputer  Progressing. 
Voluae  3.  Addison-Vesley ,  Reading,  Bassachusetts,  1973 

9.  Thoapson,  F.  B.,  The  REL  Paging  Services.  RBL  Project 
Report  lo.  18.  Pasadena,  California.  California 
Institute  of  Technology,  1974 


106 


imiDii  a 


Cl  STAR  S 00 BCE 


CABTAR  TITLE  •  PBOGRAH  TO  BAIDLE  B-DIREHSIOVAL  IBDBX 
HACBO  DEE II ITIOHS • 


BACBO 

BEQOATE  S« 

LCLA 

SI,SJ,SK 

LCLC 

SC 

SC 

SBTC 

•1* 

6J 

SETA 

6 

SK 

SETA 

2 

Air 

(T'SI  EQ  *0*)  .A 

SC 

SETC 

•SB* 

.A 

Air 

(•SC*  EQ  »r»)  .GO 

SK 

SETA 

1 

6J 

SETA 

15 

.GO 

ABOP 

SC.  SI 

EQO 

SI 

SI 

SETA 

SI+SK 

Air 

BEBD 

(SI  LB  GJ) .GO 

HACBO 

SLBL 

ZB 

SB 

SLBL 

SB 

HEBD 

SB,  SB 

HACBO 

SLBL 

LPAGE 

SPG 

SLBL 

DS 

OB 

Air 

(T'SPG  EQ  *0*) .SKLD 

ait 

(•6PG*  (1,1)  IE  •  (•)  .LD1 

Air 

(•SPG*  EQ  •  (B1)  •)  .SKLD 

LB 

B1, SPG  (1) 

AGO 

.SKLD 

.L01 

L 

B1,SPG 

.SKLD 

BAL 

rebd 

B14,LDPAGB 

SLBL 
SL  BL 


BACIO 
■PASS  (PC 
DS  OB 

IIP  (T*S PC  BQ  *0*) .SKLD 

IIP  (*SPG*  (1,1)  IB  •  (  •)  .LD1 
IIP  (•SPG*  BQ  *  (B1)  •)  .SKLD 
LB  B1,SPC(1) 

AGO  .SKLD 
.LD1  L  11, SPG 

.SKLD  BAL  114,HKPACE 
BBID 

BACBO 
SBTPOBC  SB 
LCLC  SA.SC.SL 
OSIBG  SBTSB.OH, 18 
A  IP  (•SB*  BB  *P*)  .HI 


SC 

SETC 

•L* 

SETS a. OB 

BTC 

0  (4  ,  15)  , DEL  IK  SDBJBCT 

OP 

EX  SCOTS 

II 

1TIYALS 

AGO 

.85 

.Hi 

AIOP 

SA 

SBTC 

•SB* 

AIP 

(•SB*  IB  *H •)  -H2 

SETS R. OR 

BTC 

0  (2,B5)  ,DELIK«2  SDBJBCT 

OP 

EXECOTE 

II 

1T1YALS 

AGO 

.85 

-H2 

AIOP 

SL 

SBTC 

•SB* 

SC 

SBTC 

•SB* 

AIP 

(*SH*  IB  *E*J  .83 

SBTSB.OH 

BTC 

0  (4 ,15)  ,DELRK  SDBJBCT 

OP 

EXECDTE 

II 

BTIYALS 

AGO 

.BED 

J 13 

AIP 

(*SH*  IE  *D*)  .84 

SBTSB.OH 

BYC 

0  (8,15)  ,  DEL  IK  SDBJECT 

OP 

EXECOTE 

II 

BTIYALS 

AGO 

.BED 

-H4 

BIOTB 

8,* BAD  TYPE  CODE* 

AGO 

.ID 

•H5 

AIOP 

SETS H. 00 

L 

lO.PBlTDEL 

SBA  BO. 1  BALYB  DELTA 

IIP  (•SB*  IB  *P»)  .BALL 

DIP  SBTSH .8 

AGO  .8ALLP 

.BED  AIOP 

SBTSR.00  LAB  O.PIITDBL 

HSB.l  0,0  BALYB  DELTA 

LTBB.B  0,0 

•BALL  BZ  SBODBYB 

.BALLP  AIOP 
SETS R. 01  STSL  O.PBITDEL 

SETSH.02  LSL  O.PBITDEL  ADD  01 

BZ  M3, DELS IGI  TB 

BIO  **S 


QSTBO-QSTBL  (IS)  ,0 


108 


LBSL 

.B  0,0  SO BTBACT 

DELTA  BASED  OB  BIT  STBIBG 

ISA 

0,COOBDSB (B4,B1) 

STS  A 

0,COOBDSB(B4,B1) 

SETSR.O 

LSA 

0,  COO  BOSS  (B4,B1)  COOBDIBATE  IB  PILE  El 

S6A 

0,0(B4,B10)  COOBDIBATE  PBOR  SEABCHI ISBT  XB 

BP 

SETSB.2 

BB 

SSTSB.1 

CSC 

0,DELBK 

(El  -  XB)  •  0 

BL 

SETSB ,3 

B 

SETSB.4 

SETS  B  .  1 

LPSL 

.B  0,0 

(El  -  XB)  <0 

CSC 

0,DELHK 

BL 

SETSB. 3 

01 

SETPLGS ,XBOTIBE 

PAST  OP  SEABCH  OOTSIDB 

B 

SETSB.4 

"SQOABE» 

SETS H. 2 

EX 

B3,BEGBI  OI 

QSTBH-QSTBL  (B5)  ,0 

CSC 

0,DELBK 

(El  -  XB)  >0 

BBH 

SETSB .3 

01 

SETPLGS ,EBPTTSET 

I BTEB SECTION  IS  EBPTT 

SETSH.3 

OI 

SETPLGS, EBOTIBX 

PAST  OP  •SQOABE”  OUTSIDE 

SETSB.4 

LSA 

0,0  (B4,B9)  LOB  SIDE  SEABCB  COOBDIBATE  XL 

S6A 

0,COOBDS» (B4,B1) 

PILE  COOBDIBATE  El 

BP 

SETSB.6 

BZ 

SETSB .5 

EX 

B3,BEGLO  01 

QSTBL-QSTBL  (B5)  ,0 

LPSL 

.B  0,0 

(XL  -  El)  <  0 

SETS B. 5 

CSC 

0,DELBK 

BL 

SETSB .7 

BEB 

B14 

OI 

SETPLGS, XBOTIBE 

PABT  OP  SEABCB  OOTSIDE 

BB 

814 

SETSB. 6 

CSC 

0,DELBK 

BL 

SETSB. 7 

OI 

SETPLGS, EBPTTSET 

IBTEBSECTIOB  IS  EBPTT 

SETSB.7 

OI 

SETPLGS, EBOTIBX 

PABT  OP  "SQOABE”  OOTSIDB 

BB 

B14 

AIP 

(•SB*  BB  *P«)  .BD 

SETS  B  .8 

BZ 

SBODBVB 

L 

BO, PBBTDEL  POLL  BOBD  IBTEGEB  IBPIBITE  DELTA 

SBL 

BO,  1 

APPBABS  TO  BE  BEGATITE 

B 

SETSB  .01 

SETITBTB 

EQO 

SETSB .OB-SETSB.OR 

OPPSET  POB  EX  IB  BTBTALS 

SETITBT1 

EQO 

SETSB .00-SBT6R. OR 

OOTEB  LOOP  OPPSET  IB  P4A 

SETITBX2 

EQO 

SETSB .02-SBTSB. OB 

IBBEB  LOOP  OPPSET  IB  P4A 

SSTBTBT3 

EQO 

SETSB .0-SET6B .OB 

LOOP  OPPSET  IB  IBTBSECT 

.BD 

DBOP 

B8 

HBBD 

•  PDICH  A  LXIK  SDXTOB  COITBOL  CABD  TO  POBCB  PAGB  ALIGIREIT 


POBCB 

•  PAGE 

CABTAB* 

TITLE 

•  PBOGBAB  TO 

BABDLE  B-DIBEBSIOBAL  XBDBX* 

CABTAB 

CSBCT 

OSIBG 

•#B15 

B 

PASTID 

DC 

AL1  (L  "ID) 

ID 

DC 

C*CABTAH.&STSDATB ..&STSTIBE* 

PBIBT 

BOGEB 

PAST ID 

STB 

B14 , B 12 , 12 (B13) 

LB 

B14, R13 

STD 

P0f SATBPPBO 

STD 

P2r SATEPPB2 

CROP 

0,4 

BAL 

B13,PASTC0SS 

DBOP 

BIS 

OSIBG 

•#B13 

DC 

18P*0* 

SATE  ABEA 

PABBADDB 

DC 

A(01 

PABBCBT 

EQO 

PABBADDB, 1 

SATBPPBO 

DC 

D*0* 

SABEPPB2 

DC 

D*0* 

SBTPSATE 

DS 

10P 

OBG 

SETPSATE 

XTBDSATB 

DS 

P 

LODESATE 

DS 

7P 

OBG 

BASTERPG 

DC 

A  (L'PILECBTL) 

RBA  OP  BASTEB  PAGE 

BEQOATE 
BEQOATE  P 


BAXBBPBS  BQO  32  B1XXBOH  BOHBEB  OP  BOPPEBS 

BXMff BPBS  BQO  A  BIBIBOB  BOBBER  OP  BOPPEBS 


SBODBTB  ABEBD  97,D0BP,STEP 
STKOTPLO  ABEBD  24,DOBF,STEP 


110 


TXTLS  •  PBOGBAR  TO  BARDLE  R'DIREBSIORAL  INDEX 
KOBE  ABBA  DBPXBXTIORS* 


COBB BLOK 

DSECT 

OSIBG 

•,811 

CBDDBABE 

DS 

CL8 

D DBASE  OF  FILE 

CBPOBC 

OS 

0C 14 

PDBCTIOB  CODE 

CBPOBC1 

DS 

C 

CBF0IC2 

DS 

c 

CBPOBC3 

DS 

c 

CBPOBC 4 

DS 

c 

CBSTATOS 

DS 

CL2 

BBTOBB  STATUS 

CBBODB 

DS 

c 

BODE  OF  ABXTHRETIC 

CBBOBT 

DS 

X 

BODE ITEBRIBAL  IBDICATOB 

CBBBA 

DS 

F 

BBA  OF  BECOBD  BETRIETED IXBSEBTED 

CBBAXODL 

OS 

B 

BAX  LEBGTB  OF  OSEB  DATA  ABEA 

CBT800DL 

DS 

B 

TBUB  LEBGTB  OF  OSEB  DATA 

CB  tGETS 

DS 

B 

COOBTEB  FOB  TSAR  "GETS” 

CBtPOTS 

DS 

B 

COOBTEB  FOB  TSAB  "PUTS" 

• 

BEDEFIIITIOB 
OBG  CBBOBT 

IB  EFFECT  BBEB  FUBC  *  "LOAD" | "OPEB" 

CBPAD 

DS 

C 

OSEB  DATA  ABEA  PAD  CHABACTEB 

CB9XS 

DS 

B 

•  COOBDXBATES 

CBtBOPBS 

DS 

OBG 

B 

•  PAGIB6  BUFFERS  TO  BE  USED 

DIBECTBT 

BQO 

0,16 

BBA 

EQO 

0,4 

BBA  OF  PAGE  IB  FBABE 

FBB 

BQO 

4,4 

FRA RE  CORE  ADDRESS 

FLGS 

BQO 

8,1 

CBTLADDB 

EQO 

8,4 

CORE  ADDRESS  OF  TSAR  CORTROL  IBFO 

FBD 

EQO 

12,4 

FBD  LXBK  OB  LBO  BXBG 

.  ill  i fT~*>  ii  b^bgJ 


PCBAREA 

DSBCT 

OSZBG 

*,B12 

PCBLABEL 

DS 

CLB 

LABEL  IS  PILE  DDBANE 

PRBVPCB 

DS 

A 

BACKWARD  ABD 

BEZTPCB 

DS 

A 

POB WARD  LIBKS 

IPGACB  DSBCT*BO 

GEBEBATED  ACB 

1PGBPL  DSECT*BO 

GEBEBATED  BPL 

DS 

OD 

LB1CBIB 

EQO 

IFGBPL-IFGACB 

LB BP LAB 

EQO 

•-IPGBPL 

Cl SIZE 

DS 

P 

COBTROL  IBTERTAL  SIZE 

ATSPAC 

DS 

P 

AVAILABLE  SPACE 

EBDBBA 

DS 

P 

BBDIBG  BBA 

LBECL 

DS 

P 

LOGICAL  BECOBD  SIZE  *  CISIZE-7 

HVBODCS 

DS 

A  (BODEABEA)  POR  HPCL  IB  ST 

DS 

P 

(PLLBOD) 

BCDADO 

DS 

A 

DS 

P 

(CBLDODB) 

CDBBBBA 

OS 

P 

BBA  OP  BCD  B/  COBE  ADDB  IB  BCD ADD 

BO  PBS 

DS 

A 

LOCATIOB  ABD 

•SOB POOL 

DS 

OZ 

LHGBOP 

DS 

P 

LBBGTB  OP  PAGIBG  AREA 

PBIOBT 

DS 

A 

TOT  OP  LBO  RIBG 

DELBK 

DS 

D 

EZPABDED  DELTA  PROH  RETRIEVED  BCD 

PBBTDEL 

DS 

D 

EZPABDED  DELTA  POR  BODEABEA 

SPLTHSKS 

DS 

OZL6 

BASKS  TO  SEPARATE  BBA  *S  IBTO 

Cl  HSR 

DS 

P 

COBTROL  IBTERTAL  RBA 

DSPS SR 

DS 

B 

ABD  DISPLACEBEBT 

DS 

B 

0 ROSED 

LODEABGS 

DS 

0ZL6 

SEPARATED  BBA  TO  BE  LOADED 

LODE Cl 

DS 

P 

LODE DSP 

DS 

B 

DS 

B 

OMOSED 

DIBECB 

DS 

(BAZftBPBS) ZL (L'DIRECTBY)  PAGIBG  DIBECTOBT 

BISCPLGS 

DS 

ZL3 

BISCL  PLAGS 

ISBTOBLT 

EQO 

B* 10000000*  PILE  OPEBED  POB  LOAD 

PILEZTBD 

EQO 

8*01000000*  PILE  BAS  BEEB  EZTEBDED 

PBS7ISBT 

EQD 

B *00000001*  PIBST  IBSEHTIOB  BAS  BOT  BEEB  DOBE 

SEED PAD 

DS 

C 

PAD  POB  OSEB  DATA  ABBA 

ZTBAPBB 

DS 

A 

SET? BEGS 

DS 

ZL4  *80* 

B3  EZ  BASK  POB  BIT  STRIRG 

DS 

P*0* 

R4  COOBDIBATE  VECTOR  IBDEZ 

DS 

A (QSTBL) 

B5  BIT  STBIBG  ADDRESS 

-112 


DS 

F 

B6  IHDEX  INCREMENT 

DS 

F 

B7  INDEX  LIBIT  VALUE 

SETFADDR 

DS 

A 

B8  A  (SET SB  .0) 

GBXL» 

DS 

A 

B9  LOB  SEARCH  COORDINATES 

GRXBB 

DS 

A 

BIO  HIGH  SEABCH  COORDINATES 

GRFLAG 

EQO 

B* 10000000*  IF  SBT,  DOING  •GH"  SEABCH 

TBBONLY 

BQO 

B'01000000*  IF  SET,  BAITS  TEBNIHALS  ONLY 

TBPPRNT 

DS 

B 

POINT  IN  STACK  OF  TERP  PARENT 

STKPBBT 

DS 

H 

POINT  IN  STACK  OF  PARENT 

STKTOP 

DS 

B 

TOP  OF  STACK 

DS 

X*0* 

ZEROES  TO  CLEAR  BIT  STRINGS 

SETFLGS 

DS 

X 

SET  INTERSECTION  FUNCTION  FLAGS 

SNGLCHLD 

EQO 

B* 10000000*  I1TBBSBCTIOM  IS  ONE  CBILD  ONLY 

EBPTYSET 

BQO 

8*00000100*  I NTEB SECTION  IS  BBPTY 

EBOTINX 

BQO 

8*00000010*  SOBE  OF  •SQUARE"  ODTSIDE 

XBOTIBE 

EQO 

B *00000001*  SORB  OF  SEARCB  OOTSIDE 

QSTBL 

DS 

XL64 

BIT  STRINGS 

QSTBB 

DS 

XL64 

OF  DIFFERENCE  SIGNS 

QSXBO 

DS 

XL64 

DS 

D 

UNUSED 

DS 

D 

PERMANENT  PIECE  OF  STACK 

STICK 

DS 

128D 

HAXSTKL 

EQO 

♦-STACK 

FILECHTL 

DS 

XL32 

FILE  CONTROL  INFORMATION 

OBG 

FILECHTL 

HIOSDBBA 

DS 

F 

CURRENT  HIGH  USED  RBA  (ISRT  USES) 

FLBODE 

DS 

C 

B  I  F  |  E  |  D 

DS 

C 

UNUSED 

FLICOOR 

DS 

B 

*  COORDINATES 

FLLCV 

DS 

B 

(FLiCOOR)  ♦  (FLLCOOR) 

DELTAS 

BQO 

0,2 

12  BITS 

BCD7LGS 

BQO 

1,1 

4  BITS 

PABBIT 

EQO 

8*0001* 

END  OF  TBIN  CHAIN 

MODS  CD 

BQO 

B*0010* 

RECORD  IS  A  NODE 

Tina 

EQO 

DELTA a* L* 

DELTAS, 4  TBIN  POINTER 

COOBDSa 

EQO 

TBINS+L *THHa  STABT  OF  COOBDXHATB  VECTOR 

•QSTRS 

BQO 

COOBDSa* (FLLCT) 

QSTBLB1 

DS 

B 

Q  STRING  LENGTH  BINDS  1 

CHLDODa 

DS 

B 

CHILD  PTR (USER  DATA  DISPLACEBENT 

PLLBOD 

DS 

B 

TOTAL  LENGTH  OF  A  NODE  BECORD 

•  *  L*DELTAB+L*TBIBB*  (FLLCT)  ♦  (QSTBLR 1*  1)  ♦L,CHILDPTH  <«  2000 

* 

OBG 

SO  FAR  16  BYTES  ARB  LEFT 

BODE ABBA 

DS 

XL2000 

NODE  CONSTRUCTION  BOR KS PACE 

FCBLIG 

BQO 

♦“FCBLABEL  BOPEFOLLY  <  4096 

OBG 

•-132 

BPLRSG 

DS 

CL132  *BPL 

MESSAGE  AREA* 

■L 


AjW  i.,.- 


■  VKjwV **•£*■•. 


-113- 


TITLE 

•  PHOGHAH 

TO  HAHDLE  N-DIHENSIONAL  IHDEX 

IRITIAL  ENTRI 

t 

CAST IB 

CSECT 

PAST COMS 

ST 

813,8  (B 14) 

LIRE  SAVE  ABEAS 

ST 

B14 , 4  (B 13) 

ST 

B1,PARHADDR 

SAVE  PARAMETER  LIST  ADDBESS 

L 

B11,0  (B 1) 

CL  I 

0(B11)  ,0 

OPTIONAL  PABB  COUNT  PBESENT? 

BEE 

PASTPC 

L 

B  15,0  (B 11) 

PABAHETEB  COONT 

LA 

B1,4  (B1) 

ST 

R1,PARHADDB 

STEP  PAST  COONT 

L 

B11,0  (B1) 

ADDBESS  OP  COHBBLOK 

B 

STPCT 

PASTPC 

LA 

B15f  1 

COONT  PABAHETBBS 

LA 

BO, 5 

NEED  AT  ROST  6 

CNTPC 

TH 

0  (B1) ,B  *10000000  * 

BO 

STPCT 

LA 

Bl,4  (B1) 

LA 

BIS,  1  (B15) 

BCT 

BO, CHTPC 

STPCT 

STC 

B 15,PABHCHT 

BVC 

CBSTATO S,  *C  • 

•  INITIAL  GOOD  RETORN  STATOS 

L 

R9,«A  (NOPCB) 

OSIHG 

HOPCB ,B9 

LA 

B 12, HOLLA BEL 

FIND  FCB 

LB 

B8, B12 

L 

R12,NEXTFCB 

LOOK  FOR  PROPER  FCB 

CLC 

CBDDH ABE, PCBL ABEL 

BH 

FIHDFCB 

BLB 

B9 

NOT  ON  CHAIN;  GO  HAKE  A  NEW  ONE 

CLC 

CBPOHC, *C  *CLSE *  IS  OH  CHAIH ;  HI 2  IS  NOR  BASE 

BE 

CLSE 

B 

CBKFOHC 

, 

DBOP 

B9 

LT0B6 

POLL  ABEL 

DC 

2P*0* 

HEAD  AND 

DC 

*(0) 

DC 

A  (ERDLABEL) 

ERDLABEL 

DC 

2P*-1* 

TAIL  FOR  FCB  CHAIN 

DC 

A  (HOLLA BEL) 

DC 

A  (0) 

-114- 


TITLE  *  PBOGRAH  TO  HANDLE  N— DIMENSIONAL  IBDBX  * 
CONYEBT  AS  BB A  TO  A  COBS  ADDRESS* 

BKPAGE  BVI  LOD5* 1,X*P0 •  HARK  A  Cl  AS  RODXPIED 

B  LODE 

LDPAGE  AVI  LOD541#X*00*  LOAD  OSLX;  HILL  NOT  BE  CHANGED 

LODE  STB  B14,B4#LODESATE 

ST  81,CD8HBBA 

ST  R 1 ,  LO DECI  BB A  OP  Cl  ♦ 

STB  B1 «LODEDSP  DISPLACEHENT 

SC  LODEABGS , SPLTRSKS 

BZ  LEBADXTO  ZEBO  BBA  IS  AS  ERROR 

LA  R4,PRIOBT-PSD  START  AT  TOP  OP  PRIORITY  LIST 

LODI  L  R0r PHD (B4) 

LTB  80, BO 

BZ  LOD2  Cl  HAS  NOT  IN  CORE 

LB  B3,H4 

LB  H4, HO 

CLC  LODECI  (3)  ,RBA  (B4) 

BSE  LODI 

L0D5  01  PLGS (R4) ,  *— *  HARK  IP  NECESSARY 

BBC  PHD<L*PHD#B3)  ,FHD(B4)  RESET  LRU  LIST 

BBC  PHD (L*PHD»R4) ,PHIOHT 

ST  ,  84, PBIORT 

L  RlfPBB  (84)  GET  COBE  ADDRESS 

AH  B1,L0DEDSP 

ST  B1,HCDADD 

ZB  B2 

TH  BCDFLGS  (HI)  ,NODHCD 

BSO  L0D8  TERRIS AL  BAS  NO  DELTA  STORED 

TB  DELTAS (HI) ,B* 10000000' 

BO  LOD7  STORED  AS  L0G2 

L  R2, DELTAS  (Rl) 

S  H2,*X 'PFP00000 •  CLEAR  GARBAGE 

B  LOD8 


L0D7 

IC 

815, DELTAS  (B1> 

TAKE 

ANTILOG2 

LA 

B2,1 

SLL 

B2,0  (BIS) 

LOD8 

ST 

B2, DELNK 

STORE  EXPANDED 

DELTA 

LB 

R14 ,BO,LO DESAYE 

LB 

R3,B4,LODESAVE+20 

L 

B2, THINS (B1) 

EXIT 

HITH  THIN 

PTB 

IS  R2 

TH 

RCDPLGS  (B  1)  ,PAREST 

BSOB 

B14 

ZB 

B2 

ZERO 

B2  FOB  END 

OP 

THIN  CHAIN 

BB 

B 14 

F 


-115- 


L0D2 

LI 

H2.IPGEPL 

HODCB 

BPL*(B2)  ,ABEA=(*,FHB  (H4)}  ,  ABG-  (S , BB A  (B 4  J  ) 

TB 

PLGS  (84)  ,X*FO  •  IS  IT  BABKED? 

BZ 

LOB  4 

SI 

FLGS(B4) ,X»OP»  CLEAB  BABK  FLAG 

LI 

H14, 1 

AH 

B14,CB#P0TS 

STH 

B14,CB#P0TS 

POT 

HPL*(B2)  WHITE  OOT  HODIFIED  Cl 

L0D4 

BTC 

BBA  (L*BBA,B4) ,LODECI  BBA  OF  Cl  TO  BEAD 

LA 

H14, 1 

AH 

H14,CB#GETS 

STB 

B14,CB#GETS 

L 

BO, EBB  (B4)  TBT  TO  TELL  NTS  NOT  TO  BOTHEB 

L 

B1,FBH+L*DIB£CT8Y (B4)  PAGING  IN  &BEA 

PGBLSB  LA* (0) ,HA=  (1) 

GET 

BPL* (B2) 

B 

LOBS 

XTLST 

EXLST 

LEBAB* (LEBABXT, A) ,S1NAD* (STNADXT , A) 

LEBABXTO 

LA 

BO, 16  LOGICAL  EBBOB  EXIT 

ST 

B0,CBBBA 

B 

LEBABXT 1 

LEBABXT 

SBOWCB  BPL* (1) , ABEA= (S,CBBBA) ,LENGTH=4 , FIELBS=FBBK 

LEBABXT1 

BTC 

CBSTATUS, *C*AJ* 

B 

BTN 

STNABXT 

BVC 

RPLBSG+10 (2) ,NTOBSG+2  PHYSICAL  EBBOB  EXIT 

LB 

B15,BPLBSG+4 

STH 

B15,BPLHSG+8 

LA 

B15,BPLBSG+4 (B15) 

BVC 

0  (4 ,B 15) ,MTOBSG*8 

NTO 

BF*  (E ,BPLBSG+ 8)  DISPLAY  EBBOR  BESSAGE  ON  3ES 

BTC 

CBSTATOS,*C,AO*  LOG 

B 

BTN 

NTOBSG 

NTO 

•  1234 • ,BOOTCDE* (11) ,DESC* (6) ,BF*L 

LTOBG 

! 


! 
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TITLE  •  PROGBAH  TO  HANDLE  N-DIHEMSIONAL  INDEX  * 
PBRFORH  REQUESTED  RETRIEVE  FUNCTION* 

CHKFOHC  LH  B7,FLLCV  LENGTH  OF  COORD  VECTOR 

LB  R8,QSTBLH1  LENGTH  OF  Q  BIT  STRING  -  1 

CLC  CBFUNC,=C*ISBT' 

BE  ISBT 

TH  HISCFLGS, ISRTONLI 

BO  IOTG 

L  R1,BCDADD 

ZB  B15  SHOULD  BE  A  »G"  REQUEST 

CLI  CBFONC1 ,C*G • 

BH  NOTG 

BL  CHKDLCH 

CLI  CBFUNC2fC*A  * 

BL  NOTG 

CLI  PABHCNT,4 

BL  SHBTLIST 

IC  B15,CBFUNC2 

IC  B15#CHDTBL  (B15) 

B  NOTG  (B 15) 

CHDTBLX  DC  64X*00* 

CHDTBL  EQO  CHDTBLX -C* A  *  +  1 

OBG  CHDTBL+C* A*  C*ABCD* 

DC  AL1  (GR-NOTG  ,0  ,6C-B0T6  ,GD— NOTG) 

OBG  CHDTBL ♦C*H*  C*HNOPQB* 

DC  AL1 (GH— NOTG,GN— HOTG»0 ,GP-NOTG ,0 ,GR— NOTG) 

OBG  CHDTBL*C*T* 

DC  AL1 (GT— NOTG) 

OBG 

SHBTLIST  HVC  CBSTATOS,=C*SL*  TOO  FEN  ABGUHENTS 
B  BTH 

HORCD  HVC  CBSTATOS,*C'GS* 

B  BTN 

POPIT  ZB  BO  POP  STACK  FOB  HOST  *G"  REQUESTS 

LB  B14 ,STKT0P 

AH  B 14, «AL2{-L* STACK) 

BHB  B15 

STH  B14,STKTOP 

L  B0,STACK«4(B14) 

BB  R15 

CBKDLCH  CLC  CBFUHC,*C*CHHG» 

BB  CHNG 

CLC  CBFOHC,*C*DLET* 

BE  DLET 


NOTG 


HVC  CBSTATUS,*C*AD*  INVALID  CODE 
B  BTH 
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GP 

B1L 

B15,P0PIT 

POP  CHILD 

BH 

MOB  CD 

BAL 

B1S,P0PIT 

POP  Till 

BH 

MOB  CD 

POP  TO  PABBIT 

BAL 

BIS, POPIT 

BH 

GPBS 

L 

BO, STACK  (814) 

B 

GBTIT 

BAB  00 T  OF  STACK  EITBIBS 

GPUS 

L 

B0,TBIWB (Hi) 

LTB 

BO, BO 

FOLLOW  Till  C8AIH  BACK  OP 

BZ 

IOBCD 

TH 

BCDPLGS (B1) ,PAHBIT 

BO 

GBTIT 

HEBE  IT  IS 

LPAGE 

(BO) 

B 

GPBS 

GT 

BAL 

B15,POPIT 

POP  CHILD  OFF  STACK 

BH 

IOBCD 

THEI  POP  Till 

GC 

BAL 

B1S,POPIT 

POP  TOP  OF  STACK 

BH 

IOBCD 

LTB 

BO, BO 

BZ 

IOBCD 

B 

GBTIT 

GB 

B 

GBCODB 

1BBA  SEARCH  IIITIALIZATIOI 

GH 

CLI 

CBFOIC3,C*P» 

GET  IEXT 

BE 

GIPCODB 

(IITHII  PABEIT) 

BAL 

H15,POPIT 

BBH 

GH001 

TH 

BCDPLGS  (HI)  ,HODBCD  STACK  IAS  EHPTT; 

BWO 

GIT 

FOLLOW  CHILD  CHAIN 

LH 

B15,CHLD0DB 

L 

HO, 0 (B15,B1) 

GW  001 

LTB 

BO, BO 

BZ 

GIT 

IS  SOBTBEE  TO  BE  SKIPPED? 

CLI 

CBPOHCa^'T* 

BIB 

GBTIT 

YES;  SKIP  SOBTBEE 

GWT 

BAL 

H1S,P0PIT 

BH 

gitis 

LTB 

BO, BO 

BZ 

GIT 

B 

GBTIT 

GWTWS 

L 

BO, STACK 

STACK  BAS  EHPTT; 

GBTWS1 

LTB 

BO,  BO 

FOLLOW  TWIN  CHAU 

BZ 

IOBCD 

LPAGE  (BO) 

L  HO,TWIia(H1) 

TH  HCDFLGS  (81)  ,PAHEIT 
BO  6ITIS1 

B  GBTIT 
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68  L  HO, HASTEBPG  GET  HASTEB  PAGE 

BTC  STKTOP, *AL2 (-L* STACK) 

B  GETIT  , 

GD  LB  B1S,«AL2(-L*STACX)  GET  DIBECT 

LB  B14, STKTOP  CBECK  STACK  TO  SEE 

L  BO,CB BBA  IP  IT  IS  TBEBE 

ZC  STKTOP , STKTOP 

GDLOOP  BILE  B14,B15, GETIT 

CL  BO, STACK  (B14) 

BIB  GDLOOP 

STB  B 14, STKTOP  STABT  STACK  BITB  TBIS  BECOBD 

GETIT  ZC  GBZLD (L*GBZLB+L,GBZHB+L*TRPPBBT+L*STKPBNT) ,GBZLJ 
LPAGB  (BO) 

BAL  B1S,PDSHTH  POSB  THIB  OP  LATEST  BECOBD 

CLI  CBPOBC3 ,C#P •  PABEHTAGE  TO  BE  SET 

BBS  GETITBC 

STB  B14,STKPBBT  H EH EH B EH  PABEBTAGE  POSITIOH  IN 

CLI  CBP0BC4,C*L*  STK 

BBE  GETITBC 

STB  BT4.THPPBNT 

01  GBZBB ,TBHON  LY 

GETITBC  BAL  B1S,P0SHCH  POSB  CHILD  OP  LATEST  BECOBD 

BTBBALS  L  H3, PABBADDB 

LB  B4,B5,6(B3)  A  (COOBDVBC, DELTA) 

L  B15,SETPADDB 

BZ  0,SETBTBYH  (B15)  AB  BTC  IBST  TO  BOTE  DELTA 

LA  B6,C00BDSB(B1) 

LB  B5,B7 

BVCL  B4,B6  HOVE  COOBDIBATE  VECTOB 

L  B4, 4  (B3)  A (OSEBDATA) 

LB  BS,CBHAZODL 

LB  B14,CBLD0DB  BOH  TO  HOVE  OSEB  DATA 

AB  B14,B1 

ZB  BIS 

HVI  CBNOBT,C*Nc  INDICATE  A  BODE  FOB  STABTEBS 
TH  BCDPLGS (B 1) ,BODBCD 

BO  BVODAT  BONE  TO  HOVE 

HVI  CBBOBT,C*T* 

LB  B1S#DELTA»(B1)  LENGTH  OP  OSEB  DATA  (*16) 

SBL  BIS, 4  DIVIDE  BT  16 

BVODAT  STB  B15,CBTB00DL 

ICH  BIS, B*1 000*, SEN DP AD  LOAD  PAD  CBABACTEB 

BVCL  B4,B14  HOVE  OSBB  DATA  AND  PAD  ABEA 

BBL  **8 

HVI  CBBOBT,C*Z*  HAS  A  SHORT  (TBOBCATED)  HOVE 
BTBBBA  BVC  CBBBA ,COBBBBA  BETOBB  BBA  TO  CALLEB 

BTB  LD  PO, SAVEPPBO 

LD  P2, SAVEPPB2 

L  B13 , 4  (B13) 

BETOBB  (14,12) ,T,BC«0 
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POSHCH 


POSH TV 


POPITP 


GVPGH 


GBCODB 


ZB  BO  ZEBO  TO  LEFT  SIDE 

ZB  B2 

TH  BCDFLGS  (B1)  ,HODRCD  CHILD  (IF  ART)  TO  BIGBT 
BHO  PUSHTU  SIDE 

LH  B2,CHLDUDB 

L  B2,0  (B2,R1) 

LH  B14 , STKTOP  IF  POSHIRG  TVIH,  COB BERT  RBA 

CH  R14,*AL2 (HAXSTKL-L 'STACK)  IR  LEFT  SIDE 
BH  STKOVFLO  BECOBES  PABERT 

ST  BO, STACK  (B14)  FOB  ALL  ABOVE  IT 

ST  B2,STACK*4(R14)  IR  STACK 

LA  B14,L*STACK  (B14) 

STH  B14  ,STKTOP 

BB  B15 


ZB 

LH 

CH 

BRH 

CH 

BRH 

AH 

BH 

STH 

L 

BB 


B2 

B 14 , STKTOP 
B14 ,TBPPRRT 
GRPGR 

B14  ,STKPRRT 
ROBCD 


POP  STACK  FOB  GRP  PBOCESSIRG 

BARKED  AS  TEHP  PABERT? 

IBS 

HABKED  AS  PABERT? 

TES 


B14,«AL2(-L 'STACK) 

ROBCD  STACK  IS  EHPTT 

H 14, STKTOP 
R2,STACK+4 (R14) 

H15 


ZC  THPPBRT,THPPBRT  FIHISBED  SUBTREE 

TH  GBXHB ,TBHORLI 

BHO  ROBCD 

HI  GBXHB,Z  'FF* -THBORLT 

HVC  cbstatos,*c»gh* 

B  BTH 


CLI  PABHCRT, 6  ABEA  SEARCH  SETUP 

BL  SHBTLIST 

L  B15, PABHADDB 

HVC  GBZL1  (L 'GRXLB+L 'GBXHB)  ,  16  (B15)  ADDHS  OF  LIBIT 

HVI  GBXHB ,GRFLAG  VECTORS 

XC  THPPBHT (L  *THPPBRT*L'STKPBRT) , TBPPRRT 

CLI  CBFOHC4 ,C*L' 

BRE  •♦B 

01  GBXHB, TBHORLT 

HVI  SETFLGS ,0 

HVC  STKTOP, *AL2  (-L' STACK) 

LPAGE  HASTEBPG  STABT  WITH  RASTER  PAGE 

B  GRP4 


GHPCODE 

HVI 

SST7LGS ,0 

BAL 

B 15, POPUP 

CLI 

CBP0BC4 ,C*L  * 

BIS 

GBPO 

TH 

GBXHB  ,TBHOHLY 

BO 

GBP2 

STB 

B14 ,TNPPBBT 

LAST  BCD  BEAD  IS  TO  BE  HARKED 

01 

GBXBi f TBHOBLT 

TO  RETRIEVE  ALL  TBBHIBALS  OF 

B 

GBP  2 

SUBTREE 

GNPO 

CLI 

CBFUHC4,C#T» 

IS  CHILD  SUBTREE  TO  BE 

BBS 

GBP2 

DISCARDED? 

GIP1 

HVI 

SETPLGS,0 

GVPOCO 

BAL 

B 15, POPITP 

GMP2 

LTB 

B0,B2 

BZ 

GBP1 

LPAGS 

(BO) 

TH 

SBT7LGS , SBGLCHLD  LOOKING  FOR  A  SINGLE  CHILD? 

BHO 

GBP4 

LI 

B14 ,COOBDSB <R7, 

,B1) 

SZ 

B8.CLQBL 

CLC  0(0, B14) ,QSTRL 

BL 

GBP2 

HOT  TBT 

BB 

GBP1 

HISSED  IT 

ZB 

B2 

FOUBD  IT;  HEED  HO  HORE 

GHP4 

BAL 

H 15, PUSHTU 

HVI 

SETPLGS , 0 

TH 

GBXHB.GRFLAG 

GB  PROCESSING? 

BIO 

GBP5 

BAL 

B15,IBTBSSCT 

B 

GBP1  +0 

EHPTT  INTERSECTION ;  DISCARD 

CLC 

QSTBL,QSTBH  *4 

BBS 

*♦8 

01 

SBTFLGS, SBGLCHLD 

GIP5 

BAL 

B15,P0SBCH 

TH 

BCDFLGS  (B1)  ,NODRCD 

BBO 

BTBVALS 

BETURB  ALL  TBBHIBALS 

TH 

SETFLGS, SBGLCHLD  IF  OBLT  OBE  CHILD  OF 

BO 

GBPOCO 

IRTEBEST,  GET  IT  IBBEDIATELT 

TH 

GBXHB, TBHOBLT 

BO 

GBP1 

CALLEB  HARTS  TERHINAL  OBLT 

B 

BTBVALS 
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TITLE 

•  PBOGBAA  TO  BAIDLE  N-DIBENSIONAL  IIDEZ 

IISBBT  FOICTIOB* 

CLQBL 

CLC 

0(0, B14)  ,QSTBL 

IEGLO 

01 

QSTBL-OSTBL  (B5) ,0 

■EGBI 

01 

QSTBH-QSTBL  (BS)  ,0 

DELSI6I 

TB 

QSTBO-QSTBL  (BS)  ,0 

ISBT 

CLI 

PABBCIT ,3 

. ' 

BL 

SBBTLIST 

i j 

L 

B1S,PABBADDB 

L 

B6.44B1S) 

ADDBESS  OP  OSEB  DATA 

L 

B4,8  (BIS) 

ADDBESS  OP  COOBDINATZ 

YECTOB 

LA 

BS, 0 (B4) 

] 

STB 

B4,BS,GBZLB 

1 

TB 

CBTBOODL, B* 10000000 • 

r 

BO 

ISBT07 

OD  TOO  LOIG 

LH 

BIS, CBTBOODL 

AH 

B15,CBLDODB 

♦ 

SLL 

BIS,  1 

TOTAL  LEBGTB  HOST  BE 

LESS  THAN 

I  ] 

C 

B15,LBECL 

BALP  OP  THE  LBECL 

i  | 

BIB 

ISBT08 

ISBT07 

BBC 

CBSTATOS,*C'IO*  OSEB  DATA  TOO  LOIG 

B 

BTI 

ISBT 08 

TB 

BISCPLGS , PBSTISBT 

BIO 

ISBT09 

■I 

HISCFLGS,X»FP» 

-PBSTISBT 

i 

LPAGE 

BASTEBPG 

PIBST  INSEBTIOI  OH  A 

LOAD 

BAL 

B 15 ,CALCQSTB 

!  , 

BOP 

0 

i 

B 

P6BEHTBB 

ISBT09  BAL  B15,P0PIT  TOP  OP  STACK  IS  PBOBABLT  ZEBOS 

ISBTIO  BAL  BIS ,POPIT 

BIB  ISBT12 

ZB  B14 

STB  B14,STKTOP 

ISBT12  L  B9, ST ACK-L*  STACK (B14)  CLIBB  PABEIT  DIBBCTIOI 

LPA6E  (B9)  OITIL  BODE  COB PL ET ELY  COYEBS 

BAL  B15,IITBSECT  NEW  COOBDS 

B  ISBTIO  *0 

TB  SETPLGSf EVOTIIX  *4 

BIO  ISBTIO 

•  B  B2 
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LB 

R2,R5,BBBODCS 

BVCL 

R2,R4 

REBEBBEB  COBTEBTS  OP  BODE 

BTC 

PRBTDEL, DELBR 

AS  PROBABLE 

PABEBT 

LB 

BIO ,STKTOP 

BAL 

R15,P0SHCB 

LTR 

R9,B2 

BZ 

SBODBVR 

LPAGB 

(R9>  LOOK  POR  CHILD 

IB  SABE  DIBECTIOB 

LA 

R14,COORDSB  (B7,B1)  AS  BEB  COORDIEATES 

EX 

R8,CLQRL 

CLC 

0  (0 ,R 14) ,QSTRL 

BH 

P6BEBTRB 

HISSED  IT 

BE 

QE 

ST 

B9, STACK (BIO) 

HOT  YET 

ST 

B2,STACK+4 (RIO) 

(POSH 

TBIB) 

LTR 

R9.B2 

BBZ 

C3 

B 

P6BEBTRB 

BOT  OB  CBAIB 

IBSBBT  TERMINAL 

LA 

R14,COORDSR*BODEAREA (R7) 

EX 

R8.BTQRL 

BAL 

R15f CALCQSTR 

ARE  BEB  COORDS  IBSIDE  RECORD? 

BOP 

0 

TB 

SETPLGS, EBPTYSET+EBOTIBX 

BZ 

XEBATCB 

BATCBIHG  POIHT  COORDS 

BO 

P40 

BO;  EBPTY  IBTERSKCTIOB 

ST 

H9, STACK (BIO) 

YES;  TOTALLY 

IBSIDE 

ST 

B2,STACK«4(R10) 

B  B2 


CALCQSTR  LA  B14,QCALC  CALC  A  POLL  Q  BIT  STRIBG 

B  IBTBO 

If TR SECT  LA  Rl4f  IBTRTEST  EXIT  IHBED.  IP  BO  1BTERSECTIOM 

IBTBO  STB  R3,R10,SETPSAVE 

LB  R3,R10,SETPBEGS 

BBC  SETPLGS (L*  SETPLGS+L  * QSTRL+L  *  QSTRH  >L ' QSTR  0) .SETPLGS-1 
B  SETBTRY3 (R8) 

IB TR TEST  TB  SETPLGS ,EBPTYSET 

BO  IBTREXIT  EXIT  TO  ♦ 0  IP  EHPTY 

QCALC  SRA  R3,1 

BBS  IBTRLOOP 

LA  R3,B* 10000000*  REXT  BYTE  OB  Q  STRIBG 
LA  B5# 1 (B5) 

IBTRLOOP  BXLE  R4,R6,SETBTRY3 (R8) 

LA  R15»4  (R15)  EXIT  TO  IP  POLL  LOOP  BAS  ROB 
IBTREXIT  LB  R3, RIO, SETPSAYE 

BR  R15 


P40 


P4A 

P4B 

P4C 

P4D 

XEBATCB 


STB  B 1, B 10 .SETPSATB 

BTC  TRIBA+MODEABEA.TRINi (HI) 

LI  B14,COOBDSA-»NODEABEA(R7) 

BX  B8.HTQLB 

LA  B1,COOBDS»<B1) 

ST  Bl.GRXLB 

LA  Bl.BODEABEA  BOOBABBA  BOLDS  MBB  BODB  IBPO 

LB  B6.R10.SETPBEGS* 12 

BTC  QSTRO.QSTBL 

BTC  SBTPL6S (L •SETPLGS«L,QSTRL*L *QSTBH) , SETPLGS-1 
LB  R3.B5  .SETPBEGS 

BAL  B14 , SETBTRT 1 (B8)  ADJUST  COOBDS  IB  BODBABEA 
SBA  B3« 1  ABD  CALCULATE  Q'S 

BVZ  f(|B 

LA  B3( B" 10000000 ' 

LA  BSf1(B5) 

BXLE  R4.B6.SETNTRT2 (B8) 

CLC  QSTBL.QSTHB 

BE  P4A  STILL  SABE  Q,  ADJUST  AGAIB 

ST  RIO.GBXLB  BESET  GBXLB 

CLI  SSTBTRYI+L'SETPOO  (R8)  ,X»8A*  "SBA"  OPCODE? 

BBE  P4D 

L  B14  .PRNTDEL 

LB  H15,«XL2*7P00»  CALC  LOG2 (DELTA) 

LA  B15,X*100« (B15) 

SBA  B14 , 1 

BBZ  P4C 

STB  R15.PBBTDEL 

BTC  DELTA* (2, HI) ,PRBTDEL 

LB  B1, R10.SETPSATE  QSTBL  IS  POR  LAST  BECOBD  BEAD 

B  P5BEBBOD  QSTHB  IS  POB  HER  TERMINAL 


Tfl  BCDPLGS(BI) rBODBCD  COORDS  NATCB  H/  DELTA  -  0 

BO  XEBATCBO 

LB  B2,R5,BTBODCS  RECORD  IS  A  TERMINAL; 

BTCL  H2.R4  NEED  A  PARENT  BODE  N/  DELTA 

XC  DELTAA+BODEABEA .DELTA A+NODEAREA  OP  ZEBO 


Vi 


-124- 

FSISBIOD  01  RCDFLGS+BODEAREA , RODS CO 


LB 

BAL 

CLC 

B1,PLLB0D 

B 14, XTBDSLOT 
QSTRL,QSTBB 

LBBGTB  OF  A  RODE 

BB 

F6BBWTBR 

BEB  TEBHIRAL  GOES 

FIRST 

BE 

F6BCBTBH 

IF  BQOAL,  ROST  BB 

DOP  COORD 

L 

ST 

B15, STACK+4  (RIO)  BEB  TBBRIBAL  GOES  SECOBD 

R 15 .STACK  (BIO) 

B  F6BBWTBH 


XEHATCBO  ST  B9, STACK  (BIO)  RECORD  IS  A  IODB  »/  DOP  COOBD 

ST  B2f STACK+4 (BIO)  CBILDBEB 

LB  B10,STKTOP 

BAL  R15.P0SHCH 

F6HCBTBB  L  BO, STACK+4 (RIO)  01  DOP  COORDS,  CBCK  OSSB  DATA 

F6HCBLP  LPAGE  (BO) 

LB  Rl5f CBTROODL 

LB  B14  #B6 

LB  85,815 

LB  R4,CBLD0DB 

AB  B4 ,  R1 

CL CL  R4,H14 

BB  IISTAT  DOPLICATE  RECORDS;  BO  IBSERTXOR 

ST  BO, STACK (BIO) 

LTB  BO,  82 

BBZ  F6HCHLP 


F6MBBTRH  LB 
AB 
HFI 
HFO 
LA 
LB 
L 
LB 

HFCL 

EX 

BAL 

LB 

LB 

HFCL 

B 


R1, CBTROODL 

BI.CHLDODB  TOTAL  LERGTH  OF  A  TBBRIBAL 
BCDFLGS+BODEABEA , 0 

DELTA J+RODSAREA ,CBTROODL  OSEB  DATA  ABBA  LHGTH 

R4,C00BDSB+B0DEAHEA 

B5,B7 

B2.GHXH* 

R3,R5 
R4,B2 
B8,HFQBH 
B14  .XTBDSLOT 
B5, CBTROODL 
B7,B5 
R4,B6 
BTBBBA 


ROTE  COOBDIBATE  FECTOB  IB 

RTC  0  (0,R4) ,QSTRH 

B4  IS  ALBEADT  SET 

ROTE  OSEB  DATA  IB 


IISTAT  RFC 
B 


CBSTATOS, *C  *11* 
BTBBBA 


HFQBL  RFC  0  (0,814)  ,QSTRL 

HFQLR  HVC  QSTBL(O)  ,0(814) 

HFQBB  RFC  0  (0,B4) ,QSTBH 


I 


XTIDSLOT 


XTVDO 
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ST 

H14,XTIDSAVB 

01 

BISCPLGS, PILEXTID 

L 

B4,HIUSDBBA 

IEXT  AVAILABLE  BBA 

LB 

B5, DSPHSK 

IB 

B5#B4 

it 

BS,B1 

C 

B5,LBECL 

BOOB  II  Cl? 

BIB 

XTIDO 

TBS 

LB 

B5,B1 

■o. 

I 

B4,CIHSK 

STEP  TO  IEXT  Cl 

AL 

B4f C1SXZE 

IB 

B1»B4 

ST 

B1 f BIOSDBBi 

XEH  AVAILABLE  BBA 

LB 

BIO  ,STKTOP 

IP  DOIBG  ISBT,  STACK 

CH 

B10,«AL2 (L* 

STACK)  SBOOLD  IBVEB  HAVE  < 

1 

EHTBT 

BL 

SHDDNTB 

L 

B1.STACK-L* 

STACK (BIO) 

ST 

B4, STACK-L* 

STACK  (BIO)  IEB  BECOBD  GOES 

TO  LEFT 

LTB 

Hi, Hi 

SIDE 

BZ 

XTID1 

BPAGE 

(HI) 

IISEBT  IEB  BECOBD  OH  TUII 

CHAIN 

BTC 

THIIB«IODBABEA,THII» (B1) 

ST 

B4, Till* (HI) 

TB 

BCDPLGS  (B1) 

,PABEIT 

BIO 

XTID2 

■I 

BCDPLGS  (B 1) 

*X •PP*— PABEIT  BCD  JOST  LINKED  TO 

01 

RCDPLGS+NODEABEA , PABEIT  BAS  BID  OF  Till 

CHAIM 

B 

XTID2 

XTBD1 


HPAGE  STACK-2*L*STACK(B10)  IBSEBT  BEH  BECOBD  AS 
LB  B14,CBLD0Da  PIBST  CHILD  OP  PABEBT 

L  B2,0  (B14,B1) 

ST  84,0(814,81) 

LA  B14 ,BODEABEA 

ST  B2,TBIBi  (B14) 

XTBD2  TH  BCDPLGS«HODBABEA,BODRCD 

BBO  ZTBD3 

LB  B14,CBLD0DB 

ST  B2,BODEABEA  (B14) 

BPAGE  (B2) 

BTC  TBIB9+BODBABEA ,THIB8 (B 1) 

ST  B4,T1IB9(B1) 

TH  BCDPLGS  (81)  , PABEBT 

BBO  **8 

01  BCDPLGS+BODEABEA, PABEBT 

01  BCDPLGS  (B1)  , PABEBT 

LA  Bl4,COOBDS9 (B7,B1) 

EX  B8,HVQBL  HVC  0 (0 ,B 14) ,QSTBL 

XTBD3  ST  B2,STACK-L*STACK*4  (BIO) 

LA  Bl,BODEABEA 

BAL  B15,P0SBCB 

8PAGE  (B4)  LOAD  ABD  HABK  BEH  Cl 

L  B15 ,LB£CL 

L  B14,PBI0BT 

L  B14 ,PBH  (B 14) 

AB  814,115  POIBT  AT  ABD  THEB 

HTI  0  (B14) ,0  ADJDST  VSAH  COBTROL  IBPOBHATIOB 

STB  B5, 1 (B14) 

STB  B5, 3  (B14) 

SB  B15,B5 

STB  BIS, 5  (B14) 

LB  B2,B5,H1BODCS 

TH  BCDPLGS ♦BODEABEA,BODBCD 

BBO  *«6 

LB  B5,B3  POLL  LEBGTH  IP  BODE 

HVCL  B4,B2 

L  B14, XTBDSAVE 

BB  B14 


CBIG 


CHUG  X 

DLETX 

DLBT 


DLBT01 
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TITLE  *  PBOGBAB  TO  BABBLE  N-DIHENSIONAL  INDEX  * 
CHANGE | DELETE  FUNCTIONS • 

CLI  PABHCNT, 3 

BL  SHBTLIST 

CLC  CBBBA ,CUBBBBA  BUST  HATE  JUST  BEEN  BETBIETED 

BNB  CHNGX 

TH  BCDFLGS  (B1)  ,NODRCD 

BO  CHNGX  CAN'T  CHANGE  DATA  ON  A  NODE 

L  B9, PABHADDB 

L  86,8  (B9) 

LB  B3,B7 

LA  B2,COOBDS3(B1) 

CL CL  82, B6  EBSUHE  COOBDINATES  WEBEN'T  CHANGED 

BNE  CHNGX 

LH  B5, DELTAS  (B1) 

SBL  B5, 4 

L  B6,4(B9) 

LB  B7,CBTBUUDL 

CLB  B7,B5  CHECK  LENGTH 

BH  CHNGX 

HPAGE  CBBBA 

LH  B4,CHLDUD3 

AB  B4,B 1 

ICH  B7,  B  *  1000  * , SENDPAD 

HTCL  B4#B6  BEPLACE  USES  DATA  FIELD 

B  BTN 

BTC  CBSTATU  S, *C 'CX • 

B  BTN 

BTC  CBSTATUS,=C'DX' 

B  BTN 

L  86, CBBBA 

CL  B6,BASTEBPG  CAN'T  DELETE  HASTEB  BECORD 

BHH  DLETX 

CL  B6,CUBBBBA  BUST  HATE  BEEN  JUST  BETBIETED 

BNE  DLETX 

XC  CBBBA, CBBBA 

LH  B9, CHLDUDi 

BTC  BCDFLGS+NODEABEA , BCDFLGS (B 1)  SATE  FLAG 

L  B3, TWINS  (B1)  AND  TBIN  POINTEB 

LB  B10,STKTOP 

SB  B10,«AL2(3*L' STACK) 

BNB  DLET03 

ZB  BIO  PABENT  NOT  IN  STACK 

L  BO, TWINS (B1)  WALK  TWIN  CHAIN  TO  FIND  IT 

TB  BCDFLGS  (B1)  , PABENT 

BO  DLET02  FOUND  IT 

LPAGE  (BO) 

B  DLET01 
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DLET02 

DLET03 


DLETCHLD 


DLETTHIN 

DLETT1 

DLETNVR 

DLETT2 

DLETT3 


ST 


BO, STICK (BIO) 


LPAGE  STACK  (BIO)  STARTING  AT  PARENT  OP  "X", 

ST  B2,STACK*4 (BIO)  (ENSURE  PRNT'S  TWIN  IN  STACK) 
LA  B14 , COORDSB (R7,R1)  LOOK  POR  PREDECESSOR 

EX  B8, HVQLR  ETC  QSTRL (0) ,0 (R 14) 

BVC  QSTRH  (THINB+L'THINB)  ,0  (R1)  SATE  Q,  THIN  PTB, 
CL  B6,0(R9,R1)  PLG 

BNE  DLETTHIB 


HPAGE  STACK  (BIO) 
ST  B3,0  (B9,B1) 
LPAGE  (R3) 

LTB  B2,R2 
BZ  LOBETHIN 


PARENT  HAS  PREDECESSOR;  DARK 
SUCCESSOR  IS  ROH  PIRST  CHILD 


HHOOPS;  LONE  R BRAINING  CHILD 


ST  R3,STACK+L*STACK+4 (RIO)  DELETED  RECORD  HAS 
ZB  BO  PIRST  OP  ONLY  THO  CHILDREN.  LEAVE 

ST  BO,STACK4L*STACK (BIO)  STACK  H/  SUCCESSOR  AS 
LA  R15,2*L(STACK  (BIO)  PIRST  (ONRETRIVED)  CHILD 

STH  R15,STKT0P  OP  PARENT  OP  "I" 

B  BTN 


L  BO, 0  (B9fB1)  PARENT  NOT  IHHEDIATE  PREDECESSOR 

LB  B4,B0  BBHEHBEB  PIRST  CHILD 

LPAGE  (BO)  HALK  THIN  CHAIN 

CLR  B2,R6 

BE  DLETT2 

LTB  R0,R2 

BNZ  DLETT1 

ABEND  95,DUHP,STEP 


ST  RO,STACKtLv STACK (RIO)  SAVE  IB  LEPT  SIDE  OP 

HPAGE  (BO)  STACK 

ST  B3,TNINB (HI) 

TB  BCDFLGS+NODSABEA, PARENT  HAS  "X"  ON  END  OF 

BNO  DLETT3  CHAIN? 

01  BCDPLGS (R1) ,PABENT 

ZB  B3 

CLR  R4,R0  IS  PREDECESSOR  PIRST  CBILD? 

BE  LONECHLD  TBS 

ST  R3, STACK *L* STACK* 4 (BIO)  LEAVE  STACK  H/ 

ZB  BO  PREDECESSOR  IN  PLACE  OP  "X”,  BUT  SHOH 

ST  R0,STACK+2*L'STACK (BIO)  NO  CHILD  AS  CHILD  OP 
ST  B0,STACK*2*L«STACK*4 (BIO)  PRED(X)  HAS  BEEN 
LA  B15,3*L*STACK  (RIO)  PRESENTED  EARLIER. 

STH  B15,STKT0P 

B  BTN 
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LONETWIN 

LONECHLD 


LOSE 01 

LONE 02 
LONE 03 

LOME05 

LONE  10 

LONE  11 

LONE 12 


HECORD  DELETED  WAS  ONE  OP  ONLT  TWO 
HPAGE  (B3)  ON  CHAIN 

ZB  R4  PBEDECESSOB  IS  PARENT 

HI  RCDPLGS (R1) ,X 'PP'-PARENT  REPLACE 

HVC  TWINS  (L 'TWINS  ,R1)  ,TWINS-»QSTRH  TWIN  POINTER, 

HI  RCDPLGS ♦QSTRH, PARENT 

OC  RCDPLGS (L*RCDPLGS,R1) ,RCDPLGS*QSTRH  ITS  PLAG, 

LA  R14,COORDSS  (R7,R1)  AND  Q  STRING 

EX  R8,H7QRL  HVC  0  (0, B14)  ,QSTRL 

L  R5, STACK (RIO)  RBA  OP  PARENT  TO  BE  REPLACED 

AB  R10,=AL2 (-L 'STACK) 

BNB  LONE03 

ZR  RIO 

L  RO, TWINS  (R1) 

TN  RCDPLGS  (B1)  , PARENT 

PO  LORE02 

LPAGE  (RO) 

B  LOHEO 1 

ST  RO, STACK (RIO) 

L  RO, STACK (RIO) 

LPAGE  (RO) 

ST  B2,STACK+4 (RIO)  ENSURE  PARENT'S  TWIN  IN  STACK 
CL  R5,0(R9,R1) 

BE  LON E 1 0  REPLACED  PARENT  PIRST  ON  CHAIN 

L  RO,  0  (R9  ,R  1) 

LA  H9, TWINS 

LPAGE  (RO)  REPLACED  PARENT  IS  ALONG  TWIN  CHAIN 

CLB  R5,R2 

BE  LONE 10 

LTR  B0,R2 

BNZ  LONE05 

B  DLETNTR 

ST  R4,STACK*L'STACK  (RIO)  STORE  PREDECESSOR  IN 

LTR  R4,R4  STACK 

BNZ  LONE 11 

ST  B3,STACK+L*STACK+4 (BIO)  PRED (X)  IS  A  PABENT 

LA  R15,2*L*STACK (RIO)  SUCCESSOR  IS  NON-NULL 

LR  R4,R3 

B  LONE 12 

ST  B3,STACK*2*L'STACK (BIO)  PRED  (X)  IS  NON-NULL 

ST  R3,STACK+2*L*STACK+4 (RIO)  SUCC  IS  NOLL 

LA  R15,3*L'STACK (RIO) 

STH  R15,STKT0P 

HPAGE  (RO) 

ST  B4, 0  (R9,R 1)  STORE  AS  CBILD  OR  TWIN 

B  RTN 
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TITLE  •  PROGBAH  TO  HARDLB  H-DIHENSIONAL  INDEX  * 
NODE  DEPENDENT  "SET*  FUNCTIONS* 

LTORG 


POSH  PRINT 
PRINT  GEN 


SETFONC  F 


SETFONC  H 

SBTFONC  E 

SETFONC  D 
POP  PRINT 


HOFCB 


TITLE  *  PROGBAH  TO  HANDLE  N-DIHENSIONAL  INDEX  * 
INITIALIZATION  SECTION* 

OSING  HOFCB, H9 

CLC  CBPONC, =C*CLSE*  DID  HOT  FIND 

BE  BTN 

CLC  CBFONC,=C«OPEH* 

BE  NEHFCB 

CLC  CBFOHC,=C*LOAD* 

BNE  NOTG  INVALID  FUNCTION  CODE 

LH  R2,CB*XS 

CH  R2,=AL2(8*L*QSTRL) 

BNH  CHKHODE 

HVC  CBSTATO S , =C • AX  * 

B  BTN 


CHKHODB 

HODS EBB 

NEBFCB 
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CLI  CBHODE, C*D* 

BL  BODEEBB  EBBOB 

CLI  CBHODE, C#H* 

BB  BODEEBB  EBBOB 

CLI  CBHODE, C'G* 

BBE  NEBFCB 

BVC  CBSTATUS, =C •AH • 

B  BTN 


R7,SPFCBLNG+2 


LB 

GETHAIN  BO,LV*  (B7) , BNDRT=PAGE ,SP=SUBPOOL# 
LB 
LA 
LA 

HVCL 
ST 
ST 
ST 
LB 
ST 

GENCB 


R6,R1 

B 14 ,CBDDNAHE 
B15,L •CBDDNAHE 
R6,R14 

HI, HEXTFCB— FCBAREA (B8) 

BlfPBEVFCB 

B12,NEXTFCB-FCBABEA  (B1) 

B12,B1 
B8,PBBVFCB 

BLK=ACB,DDNAHE=  (*, CBDDNAHE)  ,EXLST=XTLST ,  * 

LENGTH=LNACBAH,HAREA= (S,IFGACB) ,  GEN  AN  ACB  * 
BABEA= (S,RPLHSG) ,HLEN=L *BPLHSG,  FOR  FILE  * 

HACBF= (CB  V , DIR , ICI , IN ,0  BT , DBF) 

CLC  CBF0NC,*C*0PEH» 

BE  OPENINIT 

HVI  RISCFLGS , ISBTONLX  +  FRSTI SBT 

BTC  FLHODE, CBHODE 

STB  B2,FL#C00B 

ZB  B3 

IC  R3, CBHODE 

SLL  R3,3  BODE  CBABACTEB  *  8 

LH  B4,H0DETBL— 8*C,D,*6  (B3)  INFINITE  DELTA/FLAGS 
STB  84, DELTAS ♦NODEAREA  FOB  BASTES  RECORD 

LH  B4,H0DETBL— 8*C*D • *4 (B3)  LENGTH  OF  COORDINATE 

BB  R4,FL#C00B 

STB  B4,FLLCV  LENGTH  OF  COOBDINATE  VECTOR 

BCTB  82,0  FLOOR (  (#X*7)/8)  -  1 

SRL  B2,3  *  FLOOR  (  (#X-1)/8) 

STB  R2,QSTRLH1  LENGTH  OF  Q  BIT  STRING  BINDS  1 

LA  B5,L*DELTA9+L*THIN9+1 (R4,B2) 

STB  R5,CHLD0DS  DISPLACEHENT  TO  CHILD |OSER  DATA 
LA  B5,4(B5) 

CH  B5 , -AL2  (L ‘NODEARE A) 

BNH  STLNOD 

BVC  CBSTATOS,*C»AX* 

B  CLSE3 


AXEBB 
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STLNOD  STH  B5,FLLNOD  FINAL  NODE  LENGTH 

LA  B5,L 'FILECNTL (H5) 

ST  S5,HI0SDBBA 

XC  XTNDSAYE ,  XTNDSAYE 

LA  B8,CABTINIT 

BAL  B 10 ,OPNINIT 

CLC  HIOSDBBA.LBECL 

BH  AXEBB  LBECL  TOO  SHALL 

LB  B4rB6,CISIZE 

LTB  B6,H6 

BNZ  CLSINIT 

BCTB  H5, 0  BHPTI  DATA  SET;  PREFOBHAT  CI»S. 

L  B2r  PBIOBT 

HODCB  BPL=PBPL,ABEALEN=(*,CISIZE) ,  * 

BECLEN=  (♦, LBECL)  , ABBA=(*,FBH (B2) ) 

IHITLOOP  POT  BPL*PBPL 

BXLE  B6,H 4, IHITLOOP 

CLSINIT  CLOSE  CABTINIT 

LA  B8, IFGACB 

BAL  R6.HODOPN 

L  B3,HASTEBPG 

HPAGE  { B  3) 

LB  B4,B 1 

SB  R4,B3 

L  BS, LBECL 

LA  B14,FILECNTL 

L  B 15  f HIOSDBBA 

HYCL  B4,B14 

B  FINIHIT 

HODETBL  DC 
DC 
DC 
DC 
DC 


A  (SETDOH) ,H»08*,XL2'7F83»  D 
A (SETEOH)  ,H»04»,XL2»7F83» .E 
A(SETFOH)  ,H»04«,XL2»9F03»  F 
2F»0»  G 

A  (SBTHOH)  .H  *02*  .XL2 '8F03*  H 


NON  DORN  TO  BOBK  WITH  BEAL  ACB 

INITIALIZE  HASTEH  PAGE 


*  OPEN  AN  EXISTING  PILE 

OPENINIT  LA  B8,IPGACB 

BAL  RIO  , OPNINIT 

L  R3,HASTERPG 

LPAGE  (B3) 

LB  B4fH1 

SB  H4,R3 

HTC  FILECNTL,0(B4)  BBING  IN  PILE  COHTBOL  INFO 
BVC  CBHODEfFLHODB  BETOBN  RODE 

HTC  CBt XS ,PL#COOR  &  I  COOBDS 

PIMIMIT  HVC  SENDPAD , CBPAO  SATE  OSBB  ABEA  PAD  CBABACTEB 

ST  B3 # ST ACK-L* STACK  RASTER  PAGE  BBA  IN  PERH  STK 

HTC  STACK -L* STACK *4 (L 'THIN8) , TWINS (HI) 

BAL  B15  fPOSHCB 

ZB  B15 

IC  B15  fPLHODE 

SLL  BIS, 3 

LA  R3,B* 10000000*  PRESET  BEGS  FOB  "SET“  PONCTION 

ZB  B4  INDEX 

LA  H5.QSTHL  A  (Q  STRING) 

LH  H6,HODETBL-8*C*D*+4 (B15)  INDEX  STEP 

LH  B7, PLLCT 

BCTB  B7, 0  INDEX  LIHIT 

L  R8,HODETBL-8*C*D* (B15)  A  (RODE  SPECIFIC  CODE) 
STH  B3,B8 ,SETFBEGS 

LA  R2, VODEAREA  A  (NODEABEA) 

LH  R3,FLLROD  L 'NODE 

L  B4, BCD ADD  A (CURRENT  BECOBD) 

LH  B5,CHLD0D»  L*  NODE  B/O  CHLD  PTH  OB  USER  DATA 

STH  B2,R5,HVNODCS  PRESET  VALUES  FOB  HVCL  INSTRS 

B  BTN 


HODOPR  HODCB  ACB*  (R8)  ,DDNAHE=  (*, CBDDNAHE) 

OPEN  ( (R8)  ) 

LTB  R15,B15 
BZB  B6 

SHOHCB  ACB*(B8) , AREA* (S,CBBBA) ,LENGTH=4, FIELDS *ERROR 
HTC  CBSTATUS, *C*AI* 

B  CLSE3 
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OPHIHIT 


SBTFBH 


i 


BAL  B6,HODOPN 

SBOHCB  ACB*  (B8)  ,ABEA=  (S,CISIZE)  ,LENGTH=12,  * 

FIELDS*  (CIHY,A?SPAC,EBDBBA) 

L  B6,CISIZE 

BCTB  B6,0 

STB  B6, DSPHSK  BBA  DISPLACEHEHT  BASK 

L  B14  ,ENDLABEL 

ZB  B14#B6 

ST  B14,CXRSK  1*S  COHPLBHEHT  OF  DSPHSK 

SB  B6,=H»6» 

ST  B6,LBECL 

LB  BO,CB#BOFBS  LOAD  *  BOFFEB  PAGES  BEING  BEQ. 

ZC  CBiGETS (L ' CB # GETS 4L*CBt POTS) ,CB#GBTS 

CB  BO, *>10 

BNH  *48 

LA  BO,HAZ*BFBS 

BH  B0,CISIZE42 

ST  B0,PBBTDEL44  BAZIBOH  AROOMT  OF  CORE  BEQ. 

LA  BO,RIH«BFRS 

RH  B0,CISIZE42 

ST  BO,PBRTDEL  RIBIROH  AROOBT  OF  CORE  REQ. 

LA  BS,PBHTDEL 

LA  B3,B0FR9 

GETHAIH  ?0,LA=(B5) ,A=(R3) ,BHDRT*PAGE,SP*SOBPOOL# 


L  B1,BOFB» 

L  B 14 ,CISIZE 

L  B15,LBGBOF 

HVI  9SOBPOOL, SDBPOOLt 
SB  B15,B14 

AB  B15 ,B 1 

LA  B3,DIREC8 

ST  B3.PBIPBT 

L  BO,BHDLABEL  LOAD  A  RINDS  1 

LB  B4,B3  INITIALIZE  PAGING  DIRECTOR! 

LA  B2,0(B6,B1)  (B1)  4  (LHECL) 

LA  B3,L*DIRECTR!  (B4) 

STH  B0,B3,BBA  (B4) 

BILE  R1,R14,SETFBR 

ZC  FWD (4 ,B4) ,FHD (B4)  CLEAR  LAST  LINK 

ST  B1,FBB(B3)  STORE  IN  ZTBAFBR  FOB  PGBLSE 


GENCB  BLK*BPL,ACB*(S,IFGACB) ,  GENERATE  AN  BPL  * 

LEBGTB*LNRPLAR,WABEA*(S,IFGRPL)  ,  * 

RSGABEA* (S , BPLHSG) ,HSGLEN*L 'BPLHSG,  * 

ABEALEN* (* , CISIZE) ,  • 

OPTCD* (CNT, DIB, SIN, NOP) 

BB  BIO 


\M 


CLSE 

CLSEO 
CLSE  1 

CLSE  2 


CLSE  3 


CLSE4 


CART IN IT 
PBPL 


SOBPOOL* 

SPPCBLNG 


ETC  CBRBA ,HIUSDRB A 

TB  BISCPLGS* PILEXTND 

BHO  CLSEO 

SPACE  BASTE8PG 

S  B1f  BASTEBPG 

H?C  BIO  SDBBA-PI LECH TL (L 'HIO SDBB1 , B 1)  , BIOSDBBA 

LA  B4,IFGRPL 

L  B2, PBIOBT 

TB  PLGS(B2)  ,X»F0» 

BZ  CLSE2 

BODCB  BPL*  (B4) , ABBA* (*  #PBB (R2)  )  , ABG= (S , RBA  (R2) ) 
»I  FLGS(B2)  ,X'0F« 

POT  BPL* (B4)  WRITE  OOT  ANT  BARKED  Cl'S 

L  R2,P*D(B2) 

LTB  B2, B2 

BNZ  CLSE1 

LA  B4,IFGACB 

CLOSE  ( (B4)  ) 

L  BOfLIGBOP 

LTB  BO* BO 

BZ  CLSE4 

L  B1,BOPBd 

PREEBAIN  B,A*(1)  ,L»*{0) 

LB  R14*B15*PBEVFCB 

ST  B14 ,PREVPCB— PCBAREA  (B  T5) 

ST  B15.HBXTFC8-?CBABEA(B14) 

L  BO* SPPCBLNG 

PREEBAIN  B*A*(B12) ,LY*  (0) 

B  BTN 


ACB  BACBF*(ADB,SBQ,HCI,OOT,NOB) ,EXLST=XTLST 
BP  If  ACB*CABTINIT,0PTCD*(ADR,SEQ,N0P,!1VB)  , 

ABG*XTRDSATE 


BQO  17  SOB  POOL  NOBBER 

DC  AL1  (SOBPOOL*)  ,AL3  (PCBLNG) 


LTOBG 

EBD 
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APPENDIX  B 


Subroutine  vector 


VECTOR  is  a  subroutine  written  as  an  implementation  of 
tbe  Schrieter-Thonas  aethod  to  compute  the  great  elliptic 
distance  and  noraal  section  azimuth  between  two  sets  of 
geodetic  coordinates  on  a  selected  spheroid.  The  aethod  was 
obtained  froa  AC1C  Technical  Report  Number  80,  "Geodetic 
Distance  and  Azimuth  Coaputations  for  Lines  over  500  Biles. a 
The  following  consents  were  extracted  froa  that  report 
concerning  "Types  of  Positions**. 

If  the  results  of  a  distance  and  aziauth  compu¬ 
tation  are  to  have  any  meaning,  the  terminal  points 
used  as  basic  data  Bust  be  geodetically  related,  i.e., 
the  end  points  aust  be  derived  froa  field  measurements 
originating  froa  a  fixed  point  and  computed  along  a 
common  surface  (ellipsoid) .  The  starting  point  is 
usually  defined  in  terns  of  latitude  and  longitude, 
either  astronoaical  or  geodetic,  and  the  ellipsoid  by 
the  parameters  a  and  b.  If  the  initial  point  is  fixed 
astronomically ,  the  surfaces  have  what  is  known  as  an 
astro-orientation.  Geometrically,  this  means  that  the 
geoid  and  ellipsoid  surface  coincide  at  that  point  and 
.  the  fixed  starting  position  is  coaaon  to  both  surfaces. 
To  the  geodisist  it  means  that  the  normal  to  the  ellip¬ 
soid  coincides  with  the  local  vertical  at  that  point 
and  the  coaponents  of  the  deflection  of  the  vertical 
are  zero.  The  astro-geodetic  orientation  differs  from 
the  preceding  in  that  it  coapensates  for  the  surface 
departure  by  correcting  the  angles  between  the  geomet¬ 
rical  normals  and  tbe  true  local  verticals. 

Positions  on  the  earth's  surface  defined  with 
respect  to  such  initial  quantities  fora  a  geodetic 
system  or  datum.  Those  derived  from  different  datums 
are  unrelated  and  consequently  are  unusable  for  inverse 
coaputations.  The  results  would  be  in  error  and  the 
magnitude  of  the  error  would  correspond  to  the  effect 
of  the  differences  in  the  intial  quantities  of  their 
datum.  Certainly,  accurate  distance  and  azimuth  cannot 
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be  expected  if  the  terminal  points  of  the  line  are 
referred  to  different  origins  and  possibly  computed 
along  different  surfaces  of  unequal  size. 

Generally,  the  positions  available  for  an  inverse 
computation  axe  of  three  types: 

a.  Geodetic  positions  such  as  described  above. 

b.  Astronomic  positions,  latitude  and  longitude  of 
mhich  have  been  derived  instruaentally  by  direct 
observations  of  celestial  bodies. 

c.  Hap  positions  obtained  from  cartographic 
sources. 

Type  a.  are  the  most  accurate  although  one  very 
seldom  finds  two  points  as  widely  separated  as  6000 
miles  referred  to  the  same  datum.  The  second  type,  b., 
astronomic  points,  refer  to  positions  on  the  geoid  and 
should  not  be  used  since  the  geoid  is  not  a  geometrical 
surface.  To  use  these  for  computational  purposes  is  to 
assume  that  the  two  surfaces  are  coincident  and  the 
definition  of  each  point  identical  on  both  surfaces. 
This  assumption  could  easily  result  in  distance  errors 
as  large  as  two  kilometers  which  are  as  likely  to  occur 
on  500  mile  lines  as  for  the  6000  mile  lines. 

nap  positions  are  adequate  as  basic  data  for  such 
computations  if  they  have  been  taken  from  large  scale 
maps  (1:50,000  or  greater)  of  geodetic  accuracy.  It  is 
difficult  to  say  precisely  what  effect  such  points 
would  have  on  the  accuracy  of  the  final  results  for  the 
length  and  azimuth  of  the  line.  However,  assuming  the 
terminal  points  to  be  charged  with  a  25  meter  error, 
the  corresponding  errors  are  approximately  one  second 
in  azimuth  and  a  maximum  of  fifty  meters  in  distance. 


The  following  derivation  has  been  extracted  from  the 
ACIC  report,  rearranged  and  expanded  to  better  relate  to  the 
actual  subroutine.  Symbols  in  capital  letters  are  actual 
labels  of  variables  as  they  appear  in  VECTOR  for  the  most 
part. 


PB11 

*  <fri 

initial  latitude 

PHI  2 

=  4>2 

terminal  latitude 

L  AH  DAI 

=  A 1 

initial  longitude 

LARDA2 

*  A  2 

terminal  longitude 

DEL  AH  D 

*  AA 

=  A  2  -  A  j 
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(Note:  The  report  shows  Xj  -  X2  ,  hot  the  sign  coDTention 
there  is  positive  west;  VECTOB  ases  positive  east.) 

SI8DL  -  sin  (AX) 

SIN2DI  *  sin2  (AX) 

COS DL  *  COS (AX) 

TANB1  =  tan  (g  x )  *  (b/a)  »tan  (<j>  i ) 

TAN £2  =  tan(B2)  *  (b/a) *tan  ($ 2) 

where  a  is  the  seai-aajor  ellipsoid  axis 
b  is  the  seai-ainor  ellipsoid  axis 
and  f  =  (a-b)/a  is  defined  as  the  flattening 

(Note  that  aany  ellipsoids  are  defined  in  teras  of 
a  and  1/f.) 

Then  b/a  -  (a-a*b)/a  =  a/a  -  (a-b)/a  =  1  -  f . 

Q  =  tan  ($ i  )/tan  (4>2) 
qinv  *  1/Q  *  tan(^2)/tan(4>2) 

P  =  (b2/a2)  »tan  (<j)  i )  »tan  (4>  2) 

*  f  (b/a)  -tan  (<j>  , )  J  •  ( (b/a)  *tan  (4 ;) ) 

*  tan (8 1 )  »tan  (g  2) 

Vi  x  Q  -  cos (AX) 

D2  *  Q1H¥  -  cos  (AX) 

S  *  0»(022  ♦  sin*  (AX))  *  (1/0)  •  (Di*  ♦  sin2(AX)) 

*  (1/Q)  •[  IQ  -  cos  (AX))  2  ♦  sin2  (AX)] 

*  (1/Q)*(Q*  ~  2»Q»cos  (AX)  ♦  cos2  (AX)  ♦  sin2  (AX)) 

*  ( 1/Q)  •  (Q *  -  2»Q»cos  (AX)  ♦  1) 

*  0  -  cos  (AX)  ♦  1/0  “  cos  (A  X) 

=  D,  ♦  D2 

PS  *  P*S 
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[ Hold  in  floating  point  register  F6  the  value 
J*  *  (2*Di»D2J/{P*cos<&X)J  J 
cot(Aa)  *  IP  ♦cos  (AX)  J/JfPS+sin*  (AX)) 

C0T2SG  *  cot*  (Aa|  =  {P*cos  (AX)  1  */ fPS*sin*  (AX) ) 

[then  H  •  =  1 .5*  (Q-1/Q)  */[1+cot*  (Aa)  ]  ] 

given  1/n  =  (2  ♦  1/n0 )  •  (PS+sin*  (AX)) /PS  -  2 
n0  -  (a-b)/(a*b) 

1/b0  *  (a*b)/(a-b) 

■  (a+b  ♦  a-b)  /(a-b)  -  1 

*  2»a/  (a-fc)  -  1 

*  2/f  -  1  =  ELLIP 

1/n  =  (2+ELLIP)  •  (PS*sin*  (AX)  )/PS  -  2 

■  [  (2*KLLIP)«  (PS*sin*(AX>)  ]/PS  -  2*  PS/PS 
=  [  (2*ELLIP)*{PS*sin*(AX))  -  2*PS]/PS 

n  =  PS/[  2*  (PS+sin*  (AX))  ♦  ELLIP*  (PS^sin*  (AX)  }  -  2*PS) 
®  PS/[  ELLI P»  [PS ♦sin*  (AX) )  ♦  2»sin*(AX)] 

1  *  1  -  n  ♦  (5/4)  »n* 

*  ( (V4)  *n  -  1)  *n  ♦  1 

COTDH  =  cot  (Aco)  =  cot  (Aa)  •  fl  -  2*J  -  (3/2) *H) 

*  cot(Aa)«[I  -  (n/S)  •  (2*D:  *D2 ) /(Pvcos  (AX)  ) 

-  (n/S)  *•  (1 .5*  (Q- 1/0)  *)/(1*cot*  (Aa) )  ] 

=  cot  (Ao )  •  (1  -  (n/S)  *  -  (n/S)**B») 

*  )/cot*  (Aa )'•[  I  -  (n/S)  •  f J '  ♦  (n/S)*H»J) 

A oo  *  COt-»  (COTDH) 

DSTWCE  (in  neters)  =■  I»a  •Ao) 


L  .  , 
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Is  all  of  the  calculations,  A \  is  to  be  the  polar 
angle  <  it  <180°).  But  since  cos  (2tt  -  i)  *  4cos(a)  and 
distance  calculations  used  only  sin2(A\j,  where 
sin  (2tt  -  a)  *  -sin  (a),  the  direction  of  AX  has  aade  so 
difference  so  far.  however,  aziauth  calculations  need  the 
proper  sign  on  sin(AX).  Mote  first  that  if  AX  is  zero,  the 
heading  is  to  be  determined  by  coaparing  the  magnitude  of 
initial  and  terainal  latitudes.  If  $2  >ii,  aza  *  0°,  else 
aza  *  180.0°.  If  AX  is  not  zero,  but  sin  (AX)  is  zero,  i.e., 
AX  =  it,  aza  -  0.0°. 


It  terns  out  that  no  adjustment  need  be  aade  to  the 
sign  of  sin  (AX).  First  consider  the  line  on  the  surface  of 
the  earth  that  is  being  measured.  Since  AX  *  X  2  -  Xi  and  a 
positive  east  convention  has  been  assumed,  AX  >  -t  only  when 
the  line  being  aeasored  crosses  the  international  date  line. 
Here  AX  >  tt  would  indicate  using  the  identity 
sin  (2tt  -  a)  *  -sin  (a),  since  the  polar  angle  of  interest  is 
2n  -  AX.  However,  due  to  crossing  the  date  line,  the  sign 
of  this  angle  is  wrong  according  to  a  positive  east 
convention.  Thus  the  desired  angle  is  actnally  - (2~  -  AX) 
or  AX  -  2tt  ,  but  the  -2tt  aay  be  dropped.  Therefore,  we  end 
up  with  sin  (AX)  again  and  no  further  adjustaents  need  be 
made  to  calculate  the  aziauth  as: 


cot (Ei 2) 


cos(B  i)  •  (tan  (8  2)  -tan  (8  i)  *cos  (AX) }  •  /  1-e2cos2  (f  i ) 


sin  (AX) 


where  E12  is  the  elliptic  arc  forward  aziauth  (heading) 
and  e2  is  the  najor  eccentricity  squared 
ESQD  =  e*  =  (a2  -  b2)/a2 
cos  (8 1 )  *  y'cos2  (8  i )' 
cos2  (8  i )  *  1/sec2  (8  i)  =  l/P+tan2  (B  i)  ) 

1  -  e2cos*  (8 1 )  =  1  -  e2/{l4tan2(Si)J 


*  (1+tan2  (0i)  -e2)/(inan2(3  ,)  ) 
cos  (8  j)  »yi-e2cos2  (B  } )  =  /{sec*  (B  2 >  -e*)/sec*  (8  ,) 


*1  2 


COt“* 


(tan  (b  2 )  -tan  (8  i )  *cos  (AX) )  -/sec2  (s  i)  -e*' 
sin  (ax)  *sec*  (g  , ) 


The  arccot  function  returns  an  angle  between  ~t  and  -. 
if  Bn  <  0,  add  2tt  to  give  a  heading  between  0°  and  360°. 
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Ose 


When  the  coordinates  are  expressed  in  degrees,  Minutes 
and  seconds,  linkage  in  a  calling  progran  is  aade  by: 

CALL  VECTOR  (alatd,alats,alats,alond, alone, alons, alone*, 
blatd,blate,blats,blond,blona,blons,blonev, 
dstnce,[  head,  ]i) 


where: 

alatd,  alata,  alats  -  latitude  of  the  initial  point  in 

degrees,  ainutes,  seconds  (4-byte 
arguaents) 

alond,  alona,  alons  -  longitude  of  the  initial  point  in 

degrees,  ainutes,  seconds  (4-byte 
arguaents) 

alonew  -  heaisphere  of  the  initial  longitude  point; 
is  west.  (1-character  arguaent) 

blatd,  etc.  -  latitude,  longitude  and  heaisphere  of  the 
terainal  point 

dstnce  -  the  coaputed  distance  between  point  *a»  and 
point  (b*  (single  or  double  precision  real/ 
coap-1  or  cosp-2  (see  i  below) ) 

head  -  the  forward  aziauth  Measured  clockwise  froa 
north.  If  head  is  oaitted  or  is  initialized 
to  a  value  of  999.0,  the  aziauth  coaputation 
is  suppressed,  (single  or  double  precision 
real/coap-1  or  coap-2  (see  i  below) ) 

i  -  the  unit  of  aeasure  that  dstnce  and  head  are  to  be 
coaputed  in;  i  is  defined  as  a  four  byte  arguaent, 
but  is  actually  interpreted  as  two  halfwords,  i' 
and  i"  with  coapatibility  to  a  full word  integer. 

If  the  lower  (bytes  3  and  4)  halfword,  i"  <  0, 
then  dstnce  is  returned  as  a  double  precision  real 
(coap-2)  value,  otherwise  as  a  single  precision 
(coap-1)  value.  The  units  are  based  on  the  abso¬ 
lute  value  where: 

|i"t  =  1  returns  nautical  ailes, 

2  feet, 

3  statute  ailes, 

4  kiloaeters, 

else  aeters. 
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If  the  upper  (bytes  1  and  2)  halfword,  i*  <0, 
then  head  is  returned  as  double  precision  real 
(coap*2)  ,  otherwise  as  a  single  precision  value. 
The  units  returned  are  specified  by  the  absolute 
value  where: 

(i*|  *  0  or  1  returns  degrees, 

2  ainutes, 

3  seconds , 

else  radians. 


If  coordinates  are  expressed  as  degrees,  ainutes  and 
seconds  and  are  grouped  in  a  16  word  array  of  4-byte  argu- 
■ents  arranged  as: 

array  (01)  alatd 

(02)  alata 

(03)  alats 

(04)  alatns 

(05)  alond 

(06)  alona 

(07)  alons 

(08)  alonew 

(09)  blatd 

(10)  blata 

(11)  blats 

(12)  blatns 

(13)  blond 

(14)  blona 

(15)  blons 

(16)  blonew 

then  use  the  calling  sequence: 

CALL  VECTOR  (array, dstnce,[ head , ]i) 

Words  4,  8,  12  and  16  of  the  array  are  A4  (Hollerith)  or 
PIC  Z  (4)  character  data  with  blank  fill. 
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Hhen  the  coordinates  are  expressed  in  radians  or 
coaposite  arc  seconds,  the  linkage  is: 

CALL  VECTOR  (alat ,alon , alonew ,bla t, blon ,blonew , 
dstnce,[  head,  ]i) 

where  alonew,  blonew,  dstnce,  head  and  i  are  as  described 
above  and  alat,  alon,  blat  and  blon  are  the  latitude  and 
longitade  of  the  initial  and  terminal  points  in  units  of: 

1)  radians  if  in  floating  point 

2)  arc  seconds  if  in  binary  integer. 

A  variant  of  this  call  is: 

CALL  VECTOR  (alat, alon,  blat, blon, 
dstnce, f  head ,  ]i) 

where  longitade  heaisphere  indicators  are  oaitted  and  the 
latitude  and  longitade  are  signed  values  with  north  and  east 
as  positive. 


Known  Liaitations 

Accuracy  has  been  tested  only  to  6000  statute  ailes. 
Due  to  the  ratios  of  tangents  that  are  calculated,  points 
that  are  exactly  on  the  equator  (0°>  and  aatheaatically 
"close"  to  the  poles  (±90°)  will  cause  an  abort  due  to  a 
divide  by  zero  check.  However  a  latitude  close  to  the 
equator  aay  be  specified  as  approxiaately  in  the  range  of 
10~*°  arc  seconds  to  prevent  the  divide  by  zero  condition. 


Resarks 

The  arguaents  listed  as  "4-byte  arguaents"  aay  be 
either  single  precision  real/coap-1  or  signed  binary  full- 
word  integer/coap.  There  is  one  exception:  if  the  latitude 
and  longitude  are  being  supplied  as  arc  radians,  and  the 
distance  is  being  requested  in  doable  precision,  then  the 
latitude  and  longitude  are  also  assuaed  to  be  double 
precision  values.  The  results  are  always  returned  as 
floating  point  values,  either  single  precision/coap-1  or 
double  precision/coap-2  as  requested  by  the  signs  of  i* 
and  i". 

The  alias  RADVEC  aay  be  used  in  place  of  VECTOR  in  any 
of  the  calls  described. 
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APPENDIX  C 


VECTOR  SOORCE 


VECTOR  TITLE  •***  SUBROUTINE (S)  VECTOR/BADVBC  • 

♦  AUTHOR:  HAJ.  S.  V.  PETERSEN,  HQ  SAC/ADINSD;  EXT.  3952 

*  DATE  WRITTEN :  1  NOV  76 


*  REFERENCE:  ACIC  TECHNICAL  REPORT  NUBBER  80, 

*  "GEODETIC  DISTANCES  AND  AZIHUTH  COMPUTATIONS 

*  FOR  LINES  OVER  500  BILES" 


*  DISTANCES  ARE  CALCULATED  AS  A  CHEAT  ELLIPTIC,  USING  THE 

*  SCHREITER— THOHAS  METHOD  AS  DESCRIBED  IN  APPENDIX  I  OP  THE 

*  REPORT.  SOHE  OF  THE  COMPUTATIONS  HAVE  BEEN  MANIPULATED 

*  INTO  A  DIFFERENT  FORM  TO  FACILITATE  PROCESSING. 

*  SOHE  ERRORS  ALSO  APPEAR  IN  THE  WRITE-UP,  WHICH  HOPEFULLY 

*  HAVE  BEEN  CORRECTED. 

*  IF  THIS  ROUTINE  IS  ASSEMBLED  WITH  AN  ASSEMBLER  THAT  ALLOWS 

*  THE  "SISPARM"  OPTION,  THE  SPHEROID  USED  FOR  A  BASE  OF 

*  CALCULATION  MAI  BE  CHANGED  AT  ASSEMBLY  TIME.  ENTER  THE 

*  NAME  OF  THE  DESIRED  SPHEROID  AS  THE  SISPARM  VALUE  AS: 

*  SISPARM  (AIRY) 

*  SISPARM  (A. B.S.) 

*  SISPARM  (BESSEL) 

*  SISPARM  (CLARX  1866) 

*  SISPARM  (CLARK  1880) 

*  SISPARM  (INTERNATIONAL) 

*  SISPARM  (HAIFORD)  SAME  AS  INTERNATIONAL 

*  SISPARM  (KRASSOVSKI) 

*  THE  DEFAULT  SPHEROID  IS  THE  CLARK  1866  DATUM. 
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GBLB 

6IBR360 

SET  TO  1  FOB  DSE  ON  360 

CIBH360 

SETB 

0 

GBLB 

6AIB Y,&AHS, 

6BESSEL( &CLK 1866 ,&CLK 1880, &HATFOBD 

GBLB 

&KBSVSKY 

AIF 

(SIBH360) .IREC3A  NO  &SYSPABH  ON  360 

.IHBCO 

AIT 

('&STSPABH* 

NE  ' AIRY  * ) .IBEC1 

SAIBI 

SETB 

1 

AGO 

•IBEC99 

-IBEC1 

AIF 

( •&STSPABH • 

NE  *  A  »H  .S  .  *)  .  IBEC2 

SAMS 

SETB 

1 

AGO 

-IREC99 

-IREC2 

AIF 

(  '&SISPABR * 

NE  * BESSEL*) -IREC3 

SBESSEL 

SETB 

1 

AGO 

•IBEC99 

.IBEC3 

AIF 

(•&SYSPABH • 

HE  *CLABK  1866*) .IBEC4 

.IBEC3A 

ANOP 

CLABK 1866 

IS  THE  DEFAULT  DATUM 

6CLK1866 

SETB 

1 

AGO 

-IBEC99 

.IBEC4 

AIF 

{•&SYSPABR* 

NE  * CLABK  1880*) .IREC5 

6CLK1880 

SETB 

1 

AGO 

.IBEC99 

•IHEC5 

AIF 

( *8STSPABR • 

BQ  *INTEBNATIONAL*) . IREC5A 

AIF 

(■&SYSPABR* 

NE  *HAIFOBD»)  -IREC6 

•IBEC5A 

ANOP 

&HAYFORD 

SETB 

1 

AGO 

-IBEC99 

-IBEC6 

AIF 

(•6SYSPABH* 

HE  *KBASSOTSKT*) -IB EC 3 A 

&KBSYSKY 

SETB 

1 

•IBEC99 

ANOP 

PUNCH 

•  ALIAS  BADYEC  * 
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1 


fECTOH 

CSECT 

OSIBG 

*,B15 

B 

PASTCOBS 

DC 

AL1  (L*VCTID) 

fCTID 

DC 

C*¥ECTOB/BADV  EC • 

AIP 

(6IBB360) .SKDT 

DC 

C*  -SSTSDATB --SSISTIBE • 

.SKDT 

ABOP 

BADTEC 

EQO 

TECTOR 

EBTBI 

BADVEC 

SAVEABEA 

DC 

9D*0* 

OBIT 

DC 

D*1852.'  BBTERS/BAOTICAL  BILE 

DC 

D*0.3048*  BETEHS/POOT 

DC 

D*1609.344*  HETERS/STATOTE  BILE 

DC 

DM000-*  BETERS/KILOBETER 

BOUTS 

EQO 

(•-OBIT) /8 

PI 

DC 

D*3. 141592653589793238462643* 

TWOPI 

DC 

D*6. 283185307179586476925286* 

H ADD EG 

DC 

D*57. 29577951308232087679816*  DEGREES/RADIAN 

DC 

D* 34 37 -74677078 49392526 07890*  BIBOTES/RADIAN 

DC 

D*206264 -806247096355 1564734*  SECOBDS/BADIAN 

BAOHS 

EQO 

(*-BADDEG)/8 

OBZB1 

DC 

XL8  *4E0 0000000000000* 

DL407PI 

DC 

XL8 • 4 1 1 45P3  06DC9C883  *  4/PI 

PO 

EQO 

0 

P2 

EQO 

2 

P4 

EQO 

4 

P6 

EQO 

6 

BO 

EQO 

0 

B1 

EQO 

1 

B2 

EQO 

2 

R3 

EQO 

3 

B4 

EQO 

4 

BS 

EQO 

5 

B6 

EQO 

6 

B7 

EQO 

7 

B8 

EQO 

8 

B9 

EQO 

9 

RIO 

EQO 

10 

B11 

EQO 

11 

B12 

EQO 

12 

R13 

EQO 

13 

R14 

EQO 

14 

B15 

EQO 

15 

CONST 


DC 

DC 

DC 
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D*4. 848 1368 11095359936E-6* 
D*60.0* 

D*60.0* 


ACTC  1 

DC 

XL8*BF1E31FF1784B965* 

ACTC  2 

DC 

XL8 ’C0ACDB34C0D1B35D * 

ACTC  3 

DC 

XL8*412B7CB45AF5C165* 

ACTC  4 

DC 

IL8*C11A8F923B178C78* 

ACTC5 

DC 

XL8  *4 12AB4FD5D433FF6 • 

ACTC  6 

DC 

XL8  *C02298BB68CFD869* 

ACTC7 

DC 

XL8  *4 11S4CBB8 870CA99* 

ONE 

DC 

D*1.0* 

ACTC9 

DC 

XL8 • 4 1 1BB67AE8584CAB  * 

SQBT  (3) 

ACTD1 

DC 

D*0.0* 

DC 

XL8 'C0860 A9 1C16B9B2C* 

-.52359884 

PIO»2 

DC 

XL8*411921FB54442D18* 

PI/2 

DC 

XL8*4110C152382D7365* 

ACTCE 

DC 

XL4»0E0 00000* 

ACTCF2 

DC 

XL4  *F20 00000* 

ACTC 3 A 

DC 

XL4  *3A 100000* 

ACTC40 

DC 

XL4* 40449851* 

SCA 

DC 

XL8 • 3778FCB0B5AD 1 685 • 

SIN 

DC 

XL8 'B66C992B84B6AA37* 

COS 

SCB 

DC 

XL8  *B978C01C6BEF8CB3* 

SIN 

DC 

XL8 • 3  87E73 1 04  501 7594  * 

COS 

see 

DC 

XL8 • 3B541E0BF684B527* 

SIN 

DC 

XL8 'BA69B47B1E4 1 AEF6 • 

COS 

SCD 

DC 

XL8 'BD265A599C5CB632* 

SIN 

DC 

XL8 *  3C3C3EA 0D06  ABC29  * 

COS 

SCB 

DC 

XL8 *3EA335E33BAC3FBD* 

SIN 

DC 

IL8*BB155D3C7B3C90F8* 

COS 

SCF 

DC 

XL8 *C0 1 4ABBCE625BE4 1  * 

SIN 

DC 

XL8  *3F40F07C206D6AB 1  * 

COS 

SCG 

DC 

XL8*40C90FDAA22168C2* 

PI/4 

SIN 

DC 

XL8 'C04EF4F326F91777* 

COS 

PIO?  4 

BQO 

SCG 

ZERO 

EQO 

ACTD1 

TCTA 

DC 

XL8 *C41926DBBB1F469B • 

TCTB 

DC 

XL8 '4532644B1E4  5A 133  * 

TCTC 

DC 

XL8 *C5B0F82C871A3B68* 

TCTD 

DC 

XL8*C58AFDD0A41992D4* 

TCTB 

DC 

XL8*44AFFA6393 159226* 

TCTF 

DC 

XL8 'C325PD4A87357CAF* 

TCTG 

DC 

XL8 '422376F171F72282* 
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BEFEBENCE  ELLIPSOID  CONSTANTS 


A  -  SEBI-BAJOR  AXIS  (HETEBS) 

P  *  FLATTERING  *  (A-BJ/A 

FINV 

*  1/F 

ESQD 

HAJOB-ECCENTBICITY  SQUARED 
«  (A**2  -  B**2)/A**2 

BOVBA 

SEBI— NINO B/SEBI-RA JOB  *  1  -  F 

NO  * 

(A— B)  /  (A  +  B) 

ELLIP 

*  1/HO  *  2*FINV  -  1 

A 

1/F  B  F 

E**2 

.BEC1 

AIF 

(NOT  &CLK1866) .BEC2 

-BECDP 

ANOP 

•  CLABK 

1866 

*  6378206.4000  294.978698  6356583.8000  .00339007530393 

* 

.00676865799729 

A 

DC 

D*6378206 .40* 

ESQD 

DC 

D*  .00676865799729 • 

BO  VBA 

DC 

D*0. 996 60992469607* 

ELLIP 

DC 

D*588 .957396* 

AGO 

.BEC99 

.REC2 

AIF 

(HOT  &HAYPOBD) .BEC3 

•  I NTEB NATIONAL  (HATFORD) 

•  6378388.0000  297.000000  6356911.9461  .00336700336700 

•  .00672267002233 


A 

DC 

D'6378388 .00* 

ESQD 

DC 

0*0.00672267002233* 

BOVBA 

DC 

0*0.996632996632996632* 

ELLIP 

DC 

D*593.0* 

AGO 

•BEC99 

.BGC3 

AIF 

(HOT  &KRSVSKY) .BEC4 

*  KRASSOVSKY 

*  6378245.0000  298.300000  6356863.0188  .00335232986926 

*  .00669342162297 


A 

DC 

D*6378245.0  * 

ESQD 

DC 

0*0.00669342162297* 

BOVBA 

DC 

D*0. 996647670 13074* 

ELLIP 

DC 

D*595 .6 ■ 

AGO 

.BEC99 
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.BSC4  IIP  (HOT  6CLK1880) .BEC5 

*  CLARK  1880 

*  6378249.1450  293.465000  6356514.8695  .00340756137870 

*  .00680351128285 


A 

DC 

D* 6378249. 1450* 

ESQD 

DC 

D*. 00680351128285* 

BOVBA 

DC 

0*0.9965924386213* 

BLLIP 

DC 

D*585.930* 

AGO 

•BEC99 

-BEC5 

AIP 

(HOT  SAIBY)  .BEC6 

*  A  1ST 

*  6376542.0000  299.300000  6355237.1487 

* 

A 

DC 

0*6376542.00* 

ESQD 

DC 

D*. 00667109545840* 

BOVBA 

DC 

0*0.9966588706983* 

BLLIP 

DC 

D*597.60* 

AGO 

.BEC99 

.EEC  6 

AIP 

(HOT  SABS) .REC7 

*  A  .H  -S 

•  6378270.0000  297.000000  6356794.3434 

* 

A 

DC 

0*6378270.00* 

ESQD 

DC 

D*0. 00672267002233* 

BOVBA 

DC 

D*0. 996632996632996632* 

BLLIP 

DC 

0*593.0* 

AGO 

.BEC99 

.BBC7 

AIP 

(HOT  SBESSEL) .BECDF 

*  BESSEL 

*  6377397.1550  299.152813  6356078.9628 

* 

A 

DC 

0*6377397.1550* 

ESQD 

DC 

D*. 00667437223749* 

BOVBA 

DC 

D*0. 99665722681497* 

BLLIP 

DC 

D*597. 305625* 

-BEC99 

AHOP 

.00334112930170 

.00667109545840 


.00336700336700 

.00672267002233 


.00334277318503 

.00667437223749 


i 


? 
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HKAREA 

DC 

D*0* 

COORDS 

DS 

OD 

LIND 12 

DC 

D*0* 

LONGITUDE 

TERMINAL 

POINT 

PBI2 

DC 

D*0* 

LATITODE 

TERMINAL 

POINT 

LINDA 1 

DC 

D*0* 

LONGITUDE 

INITIAL 

POINT 

PHIl 

DC 

D*0* 

LATITUDE 

INITIAL 

POINT 

SIHDL 

DC 

D*0* 

SIN  (DELAMD) 

SIN2DL 

DC 

D*0* 

SIN**2  (DELAMD) 

COSDL 

DC 

D*0* 

COS  (DELAMD) 

TANB1 

DC 

D*0* 

TAN  (BETA  1)  *  (B/A)  *TAN  (PHI1) 

TANB2 

DC 

D*0* 

TAN  (BETA2) 

S 

DC 

D*0  • 

D1  ♦  D2 

PS 

DC 

D*0* 

P*S 

DELAMD 

EQU 

LAHDA 1 

LAMDA2  -  LAHDA1 

COT2SG 

EQU 

LAND A 2 

COT** 2  (DELTA  SIGMA) 

TB2 

EQU 

COT2SG 

TEMP  STORE 

COTDN 

EQU 

COT2SG 

COT  (DELTA  OMEGA) 

TANPB1 

EQU 

LANDA2 

TAN  (PHIl) 

D1 

EQU 

LAHDA2 

Q  -  COSDL 

SNITCH 

EQU 

S 

I 

EQU 

PS 

1  -  N  ♦  1.25*N**2 

IJH 

EQU 

s 

I  -  2*J  -  1.5*H 

TEHP2 

DC 

D*0* 

PCOSDL 

DC 

P*0  * 

P*COS  (DELAMD)  (NEED  THE  SIGN) 

SCO 

EQU 

PCOSDL* 3 

MINH 

DC 

XL4 *35400000* 

C24H8 

DC 

P*24,-8* 

i: 


PAST COHS  STH  R14,R12, 12  (R13) 

LB  R2,B 13 

LA  B13,SAVEAREA 

DBOP  BIS 

OSI1G  SAVEAREA ,B13 

ST  B2,  4  (B13) 

ST  B13,8(B2) 

RTI  SWITCH, 0 

LH  B4,BS,C24H8 

LA  B6, STOBAD 

LB  B2,B1  COOBT  THE  RUBBER  OP  PARHS 

LA  B14 , 4  PASSED 

LA  B15, (17-1) *4-8 (B1) 

CHTPBHS  TH  8(R2),X*80*  ABSOLUTE  HINIHOH  IS  THREE 

BO  EOPLST 

BILB  B2,B14,CRTPBHS 
B  WRHGRBR 

EOPLST  LH  B 10 ,R 12,0  (B2)  A  (DSTHCE,HBAD  (?) ,IDNIT) 

SB  B2, B 1 

SBL  R2,2 

IC  R 14 ,BTBL  (R2) 

B  WRHGRBB  (B 14) 


CABGS  *  3,  4,  S,  6,  7,  8,  9, 

DC  AL1  (NOHEAD3, ARG4 3,0 , NOHEAD 3, ARG73, NOHEAD 3, ARG93) 
DC  AL1 (0,0, 0,0, 0,0, ROHE ADA, ARG 173,0) 

10 - 15,  16,  17 

DC  X»B2B0» ,H,32»  THIS  IRTALID  OPCODE  TERMINATES 
DC  CL32*«RONG  NtJHBEH  OP  ARGDRENTS  PASSED* 

B  RTN 


ROHE AD 

LR 

R10,R11  OPTIONAL 

AZIBUTH  PARAHETER  HISSING 

NOBEAD3 

EQO 

BOHEAD-RBRGRBR 

LA 

B11,*E*999.0* 

SUPPRESS  THE  CALCULATION 

IC 

B14,BTBL+1 (B2) 

B 

WBIGIBR (B 14) 

*  VECTOR  (ALATD,ALATH,ALATS,  ALNGD, ALNGH, ALNGS,AEH , 

*  BLATD , BLATH  ,  BLATS  ,  BLNGD, BLNGN,  BLNGS, BEH, 

*  DSTNCE,  <HEAD,>  IONIT) 


ABG17 

LA 

B14 ,DHS BAD 

ABG 1 79 

EQO 

ABG17-HHHGNBB 

DHSBAD 

LD 

PO,ZERO 

LA 

B3,16 

INDEX 

CHVBT17 

L 

B15 ,0  (B 1) 

LA 

R1,4  (B1) 

I1VC 

HKABEA  (4)  ,0  (B15) 

ROVE  IN  VALOE 

TH 

HKABEA, X'FP* 

BB 

Cf  17B 

BEAL*4 

BZ 

CV17P0SI 

POSITIVE  INTEGER*4 

L 

HO, UK AREA 

NEGATIVE  INTEGEB*4 

LPB 

BO, HO 

ST 

BO, MK AREA 

Hf  I 

HKABEA, X«80» 

RAKE  NEGATIVE 

CV17P0SI 

01 

HKABEA, X»46  * 

INTEGER.  HAKE  AH  ONNOBR  BEAL 

CV17B 

AO 

PO, HKABEA 

HO 

PO, CONST (B3) 

BXH 

B3,R5,CHVBT17 

BB 

B6 

TO  CHECK  EAST/HEST  AND  STORE. 

\s 
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*  VECTOR  (LATHI,  LHGB1,  <AEN,>  LATB2,  LNGB2,  <BER,> 

*  DSTNCE,  <HEAD,>  IONIT) 


AHG7 

LA 

H6,STVL 

ARG74 

EQD 

ARG7-HRNGNBB 

ABG9 

LA 

B14 ,BADSEC 

ABG9S 

EQO 

ARG9-NRNGNBR 

BADS EC 

L 

B15,0  (HI) 

LA 

HI, 4  (B1) 

TH 

0 (B 15) ,X»FF» 

BNH 

ABGSEC 

SDB 

F0,F0 

LOAD  A  SINGLE  PRECISION  RADIAN 

LB 

F0,0  (B15) 

INPOT  VALOE 

ONLESS  THE  DISTANCE 

TH 

2  (B 12)  ,X • 80 • 

IS  REQUESTED 

IN  DOUBLE  PRECISION 

BNOR 

B6 

LD 

FO, 0 (B15) 

BEAL*8 

RADIANS 

BB 

B6 

ARGSEC 

L 

R0,0 (B15) 

LPB 

BO, BO 

ST 

BO, VKABEA 

INTEGER  SECONDS 

HVI 

WKABEA,X*46* 

TH 

0  (B 15)  ,X»80» 

BNO 

*♦8 

XI 

BKAREA , X*80  * 

HAKE  NEGATIVE 

LD 

PO, NKAREA 

HD 

FO, CONST 

CONVERT  TO  RADIANS 

BB 

B6 

STOBAD 

XI 

SNITCH, 1 

BNZ 

STVL 

BRANCH  ON  LATITUDE 

L 

B15,0  (B1) 

LA 

B1 , 4  (R 1) 

CLI 

0(815)  ,C*W* 

BNE 

STVL 

LCDS 

F0,F0 

COHPLEHENT  ON  NEST 

STVL 

STD 

FO, COORDS  (B4) 

BXH 

B4,B5,0  (R 14) 

B 

DONECVBT 

(FO)  =  COORDS (0)  =  LAHDA2 

i 
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*  VECTOR  (LTLNABB,  DSTNCE,  <HEAD, >  IONIT) 


ABG4 

L 

B  15,0  (R1) 

ARRAY  OP  16  WORDS;  SANE 

ARG4S 

EQO 

ARG4— WRNGNBR 

ORDER  AS 

LA 

Rl,4  (R1) 

ARG17  PARHS,  BOT  ADD  A 

* 

WORD  POR  LAT  NORTH/SOOTH 

ABBONS 

LD 

PO , ZERO 

LA 

S3,  16 

CNVBT4 

hvc 

WKAREA  (4)  ,0  (B  15) 

LA 

R15,4  (B 15) 

TH 

WKAREA, X*PP* 

BN 

CV4B 

REAL*4 

BZ 

CV4P0SI 

POSITIVE  INTEGBR*4 

L 

RO, WKAREA 

NEGATIVE  INT£GER*4 

LPB 

HO,  HO 

ST 

RO, WKAREA 

HVI 

WKAREA, X*80* 

HAKE  NEGATIVE 

CV4POSI 

01 

WKAREA,! *46  * 

INTEGER.  HAKE  AN  UNNORH  REAL 

CV4R 

AD 

PO, WKAREA 

ND 

PO, CONST (R3) 

BXH 

R3,R5,CNVRT4 

CLI 

0  (R15)  ,C*S* 

BE 

WORS 

CLI 

0  (H  15)  ,C*W* 

BNE 

*♦6 

IGNORE  E,  N 

HORS 

LCDS 

PO,PO 

COHPLEHENT  WEST,  SOOTH 

STD 

PO, COORDS  (R4) 

LA 

R15,4  (B15) 

BXH 

R4 , R5 , AHRDHS 

• 

B 

DONCVRT 

(PO)  *  COORDS  (0)  =  LANDA2 
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DORECVRT 


KALLSIN 


STCOSDL 


DS 

OH 

LD 

FO, LAHDA2 

SD 

PO,LAHDA1 

STD 

FO, DELAHD 

POLAR  ANGLE 

BRZ 

KALLSIN 

STD 

PO.SINDL 

SIR  (0)  *  0 

STD 

PO, SIN2DL 

LD 

F6 , PHI 1 

IS  THIS  A  ZERO  DISTANCE  CALL? 

CD 

F6,PHI2 

BE 

STDST 

TES 

LD 

FO, ORE 

COS  (0)  =1. 

B 

STCOSDL 

LA 

R15 ,4 

SINE  OP  NEGATIVE  VALDE 

BH 

*♦6 

SR 

R15,R  15 

SINE  OP  POSITIVE  VALOE 

BAL 

R7, SCI 

STD 

PO, SIRDL 

HDR 

F0,F0 

STD 

PO, SIR2DL 

LD 

PO, DELAHD 

LA 

R15,2 

COSINE  OP  VALOE 

BAL 

R7, SCI 

STD 

PO ,COSDL 

LD 

P0,PHI1 

BAL 

R7, TANG 

TH 

PHI1 ,1*80 • 

BRO 

*♦6 

LCDR 

P0,P0 

STD 

P0,TANPH1 

HD 

PO, BOVRA 

STD 

P0,TANB1 

PARAHETRIC  LATITODE 

LD 

PO, PHI2 

BAL 

R7, TANG 

TH 

PBI2 , Z  *80  * 

BRO 

*♦6 

LCDR 

P0,P0 

LDR 

P6,P0 

LD 

P4,TARPH1 

DDR 

P6,P4 

QIRV  =  1/Q 

DDR 

P4,P0 

Q  =  TAN  (PH1 1)  /TAN  (PHI2) 

HD 

PO, BOVRA 

STD 

PO , TANB2 

HD 

PO,TARB1 

(PO)  =  P 

LDR 

P2,P4 

SDR 

P2,P6 

(P2)  *  Q  -  1/Q 

SD 

P4,COSDL 

(P 4)  *  D1 

STD 

P4,D1 

SD 

P6,COSDL 

(P6)  *  D2 

ADR 

P4,P6 

BZ 

SZERO 

L 
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CALCL 

CALCLB 


STD 

F4,S 

S  =  D1  ♦  D2 

HDR 

F4,F0 

STD 

F4,PS 

P*S 

LTDR 

F4,F4 

BMP 

SZERO 

AD 

F4, SIN2DL 

PS  ♦  SIN**2  (DELAHD) 

AD 

F0,COSDL 

P  ♦  COS  (DELAHD) 

STB 

FO, PCOSDL 

DDB 

F6,F0 

D2/ (P+COS (DELAHD)  ) 

HD 

F6,D1 

D 1* 

ADB 

F6,P6 

2* 

RDB 

FO,FO 

(P*COS  (DELAHD)) **2 

DDB 

F0,F4 

/  (PS*SIN**2  (DELAHD)  ) 

STD 

FO,COT2SG 

=  C0T**2  (DELSIGHA) 

AD 

F0f ONE 

RDB 

F2,F2 

(Q-1/Q)  **2 

DDR 

F2,F0 

/  (C0T2SG* 1) 

HD 

P2,  =D • 1  .5  * 

1.5*  "H" 

RD 

F4 , ELLIP 

AD 

F4 , SIN2DL 

AD 

F4,SIN2DL 

LD 

F0,PS 

DDR 

FO,P4 

(FO)  »  N 

LD 

F4#  *D • 1  -25* 

(1.25 

HDB 

F4,FO 

*N 

SD 

F4 , ONE 

-1) 

HDB 

F4,F0 

*N 

AD 

F4, ONE 

♦  1 

STD 

F4,I 

=  I 

DD 

FO,  S 

(FO)  =  N/S 

HDB 

F2,F0 

ADR 

F2,F6 

HDB 

F2,F0 

SDR 

F4,F2 

LD 

F2,COT2SG 

BAL 

B7, SQT 

HDB 

F0,F4 

LD 

F2,ONB 

BAL 

B7, ACT 

TH 

PCOSDL, X* 80 • 

BBO 

CALCL 

SD 

FO,PI 

LPEB 

F0,F0 

HD 

FO ,  1 

HD 

FO,  A 

(FO)  =  DISTANCE  IN  HETEBS 

LH 

B15,2  (B 12) 

CHECK  DISTANCE  ONITS 

LPR 

R 15 ,R 15 

BZ 

STD  ST 

C 

R15,*A  (NONITS) 

BB 

STDST 

SLA 

B15 , 3 

DD 

FO,ONIT-6  (B 15) 

I 


1 
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STDST 


TH  2  (B12)  ,1*80  * 

BNO  STDSTE 

STD  F0,0(B10)  BETOHN  AS  "DSTNCE"  VALUE  REAL*8 
B  CBKAZH 


STDSTE 


.VI 


DS  OH 

A  IP  (GIBH360)  .V 1 

LBBB  POfPO  OH  A  370,  HE  CAH  ROOND  NICELI 

STB  PO, 0 (BIO)  BETOBH  AS  "DSTNCE"  VALUE  REAL*4 


CHKAZH  CLC  0  (4  ,  B  11)  ,  =E  •  999. 0  •  AZIMUTH  DESIRED? 


BE 

RTN 

LD 

P4 , SINDL 

LPDB 

P0,P4 

BNZ 

CALCHEAD 

LD 

P6, PHI1 

TH 

COSDL,Z  *80* 

BNO 

CHO 

LCEB 

P6,P6 

CHO 

CD 

P6,PHI2 

BNH 

STHD 

LDPI 

LD 

P0,PI 

B 

STHDPI 

CALCHBAD 

LD 

P2,TANB1 

HDR 

F2,P2 

AD 

P2,ONE 

HDB 

P4.P2 

STD 

P4, SINDL 

SD 

P2,ESQD 

STD 

F2 , TB2 

BAL 

H7,SQT 

LD 

P4,TAHB2 

LD 

P6,TANB1 

HD 

P6,COSDL 

SDB 

P4,P6 

HDB 

P0,P4 

STD 

P0,TB2 

LD 

P2, SINDL 

LPEB 

F2,F2 

LPEB 

P0,P0 

BZ 

CHI 

STE 

P2,TEHP2 

L 

B14 ,TEHP2 

STE 

P0,TEHP2 

S 

B 14 , TEHP2 

c 

B 14 , ACTCE 

BNH 

CH2 

CHI 

LD 

PO, PIOV2 

B 

CHSGN 

SIN  (DELARD)  =  0 


(POLAB  ANGLE  IS  PI) 

IP  COS  (DELAHD) *PH1 1  <  PHI2 
HEAD  *  0.0; 
ELSE  HEAD  *  180 


SINDL*SEC2B1 
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CH2 

TH 

TB2,X»80« 

BNO 

CHACT 

C 

R14 ,ACTCF2 

BL 

LDPI 

CHACT 

BAL 

B7, ACT 

CHSGN 

TH 

TB2,I,80» 

BHO 

*♦10 

LCDS 

po,po 

AD 

P0,PI 

TM 

SINDL,X  *80* 

BHO 

•♦10 

LCDS 

P0,F0 

AD 

PO, THOPI 

STHDPI 

LH 

H15 ,0  (B 12) 

CHECK  AZIMUTH  UNITS 

LPB 

R15,R15 

BZ 

STCHV 

GIVE  DEGREES  ON  0  OR 

* 

COOLD  BE 

A  1  IP  A  NEGATIVE 

PULL  WORD  HAS  GIVEN  AS 

BCTB 

B15,0 

C 

B15  ,  =A  (NAOHS) 

BHL 

STHD 

RADIANS  ON  ALL  ELSE 

SLL 

BIS, 3 

STCN  V 

HD 

PO  , E ADDEG (BIS) 

ST  HD 

TH 

0  (B 12)  ,X»80« 

BNO 

STHDB 

STD 

F0,0  (B11) 

B 

BTH 

STHDE 

DS 

OH 

AIP 

(&IBH360)  . V2 

LBEB 

F0,F0 

BOUND  ON  A  370 

-V2 

STE 

F0,0(B11) 

BTH 

L 

R13,4  (R13) 

HETURN  (14, 12) ,T,HC=0 

SZEBO 

LD 

PO, ZEBO 

TH 

COSDL,X»80* 

BZ 

STDST 

LD 

PO, =D  *3 .1362* 

B 

CALCLE 

1 

PLAG 


ELLIPTIC  CIRCUHPEBENCE 
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SQT 


SQT1 


LPDB 

F0,F2 

BZR 

R7 

SB 

R14 , B 14 

IC 

R14,TB2 

LA 

B14,X,31t  (R 14) 

SBDL 

R14, 1 

STC 

R14,TB2 

LE 

F6, TB2 

HTC 

TB2*1  (3) , -X •423A2Ai 

AE 

F6,TB2 

HE 

F6,=X»48385F07» 

LTR 

R15.R15 

BNH 

SQT1 

AEB 

F6,F6 

AER 

F6#F6 

DEB 

F2#F6 

AUR 

F6,F2 

HBB 

F6,P6  H 

LER 

F2,F0 

DEB 

F2,F6 

AOB 

F6,F2 

HER 

F6,F6 

LDR 

F2#F0 

DDB 

P2,F6 

AHB 

F6,F2 

HDB 

F6,F6 

DDB 

P0,F6 

SDB 

F0,F6 

HER 

F0,F0 

SO 

F0,TB2 

AO 

F0,TB2 

ADR 

F0,F6 

BR 

H7 

SQO&BE  BOOT  PONCTIOH 
BETORN  ON  ZERO 


HETHOD 


(NEHTON-RAPHSON) 


LTOBG 


v 
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SCI 

BAL 

B 14, OCTANT 

SIN E/CO SI BB 

LA 

BIS, 8 

CALC  COSINE? 

T1 

SCQ,X  *03  * 

BB 

SC5 

TES 

SB 

B15,B15 

NO,  CALC  SIN 

SC5 

CE 

P4, BIBB 

BH 

SC6 

LD 

PO  , ZEBO 

B 

SC7+2  (B 15) 

SC6 

BDB 

P0,P0 

LDB 

P2,P0 

BD 

PO, SCA  (B15) 

AD 

P0,SCB  (BIS) 

BDB 

PO,  P2 

AD 

P0,SCC  (BIS) 

BDB 

P0,P2 

AD 

PO, SCD  (BIS) 

BDB 

PO,  P2 

AD 

PO,SCE  (B15) 

BDB 

P0,P2 

AD 

PO,SCP  (B15) 

BDB 

P0,P2 

AD 

PO, SCG  (BIS) 

B 

SC7 (fi 15) 

SC  7 

BDB 

P0,P4 

POB  SIN 

B 

SC8 

HOPS 

0 

SPACE  TO  8  BITES 

BDB 

P0,P2 

AD 

PO,ONE 

SC8 

TB 

SCQ,I'04* 

IS  SCQ  4  TO  7? 

BZB 

H7 

LCDS 

PO,P0 

BB 

B7 

OCTANT 

LPDB 

P0,P0 

BD 

PO, DL40VPI 

CE 

PO, ONE 

BL 

OCT  1 

LDB 

P4,P0 

AN 

P4 , OBZB 1 

STD 

P4, TEBP2 

AD 

F4, OBZH 1 

SDB 

P0,P4 

AL 

B15,TEBP2*4 

OCT1 

STC 

BIS,  SCQ 

TB 

SCQ,X»01» 

BZ 

OCT  2 

SD 

P0,OBE 

OCT2 

LPDB 

P4,P0 

BB 

B14 
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TANG 


TCT2 

TCT3 

TCT4 


SB 

B15,B15 

BAL 

B14, OCTANT 

LD 

F2,TCTG 

LD 

F6,  ONE 

CB 

P4#  BINS 

BL 

TCT2 

BDB 

FO,FO 

LOB 

F6,F0 

AD 

F6,TCTF 

BDB 

F6,F0 

AD 

F6,TCTE 

BDB 

F2,F0 

AD 

F2, TCTA 

BDB 

F2,F0 

AD 

F2,TCTB 

BDB 

F2,F0 

AD 

F2,TCTC 

BDB 

FO#F6 

AD 

FO#TCTD 

BDB 

F0#F4 

TB 

SCQ,X"03* 

BB 

TCT3 

DDB 

F0,F2 

B 

TCT4 

DDB 

F2,F0 

LDB 

F0,F2 

TB 

SCQ,X*02* 

BZB 

B7 

LCDS 

FO#FO 

BB 

H7 

TANGENT  FUNCTION 
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ACT 

CDS 

F0,F2 

AHCCOTAHGENT  FUNCTION 

BH 

ACT02 

BL 

ACTOI 

LD 

FO, PIOV4 

(X)  *  1,  LOAD  PI/4  AMD  RETOBH 

BB 

B7 

iCTOI 

DDH 

F0,F2 

LA 

HI,  16 

B 

A  CTO  3 

A  CTO  2 

ODB 

F2,F0 

LDB 

F0,F2 

SB 

HI, HI 

ACT03 

LA 

H 14  ,  ACTD1 

LD 

P4,OME 

CE 

FO, ACTC3A 

BNH 

ACT05 

CE 

FO, ACTC40 

BNH 

ACT04 

LDB 

F2,F0 

HD 

FO, ACTC9 

SDB 

FO,F4 

AD 

F2, ACTC9 

DDB 

F0,F2 

LA 

H 14 ,8  (B14) 

ACT04 

LDB 

F6,F0 

HDB 

PO,FO 

LD 

F4, ACTC7 

ADB 

F4,  FO 

LD 

F2, ACTC6 

DDR 

F2,F4 

AD 

F2, ACTC5 

ADB 

F2,F0 

LD 

F4, ACTC4 

A  CTO  5 

DDB 

F4,F2 

AD 

F4, ACTC3 

ADB 

F4,F0 

LD 

F2, ACTC2 

DDR 

F2,F4 

AD 

F2, ACTC1 

HDB 

F0,F2 

HDB 

FO,  F6 

ADB 

FO,  F6 

SD 

FO,  0  (B  1,B  14) 

LPEB 

FO,FO 

BB 

H7 

BHD 
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APPENDIX  0 


COPI  BOOKS  FOB  COBOL  PROGRAMS  OSIHG  CARTA fl 


CAST CB 07  -  COMBO MI CATION  BLOCK. 


05  DON ABE  PIC  X  (8)  VALOE  •GEOINDEX  • . 

05  FOHCTIOH-CODE  fALOE  ‘OPEN*. 


10 

PONCTION 

-CODE-1 

PIC  X. 

10 

FONCTION 

-CODE -2 

PIC  X. 

to 

FONCTION— CODE-3 

PIC  X. 

10 

FONCTION— CODE— 4 

PIC  X. 

88 

CONTI NOE 

-WALK 

VALOE 

f  • 

88 

DISCARD- 

SOBTREE 

VALOE 

•  *p  1 

88 

KEEP-ALL 

-CHILDREN 

VALOE 

•L* 

STATOS-CODE 

PIC  XX. 

88 

GOOD-CARTAH-OPEN 

VALOE 

• 

88 

S0CC8SSF0L-CARTAB 

VALOE 

• 

88 

MORE-PATH 

VALOE 

• 

88 

END-OF-PARENT 

VALOE 

•GE 

05  MODE-INDICATOR  PIC  X. 

05  OSER-DATA— PAD-CHABACTEB  PIC  X  VALOE  *  ». 

05  HORT-IHDICATOR  REDEFINES  OSEB-DATA-PAD-CHARACTEB 

PIC  X. 


88 

NODE 

VALOE 

•N* 

88 

TERMINAL-ELEMENT 

VALOE 

»<p» 

88 

TERHINAL-W-SHORT-KEY 

VALOE 

•X* 

05  OPEN -INFO-AREA. 

10  NOMBEB-OF-COOBDINATES 

PIC  9(4)  COMP  S INC  VALOE  2. 
10  HAX-HOHBBB-BOFFEHS 

PIC  9(4)  COMP  SYNC  VALOE  32. 


05 

RECORD-BBA  REDEFINES 

OPEN 

-INFO-AREA 

05 

M AX -OSER-ABEA -LENGTH 

PIC 

PIC 

S9  (9) 
9(4) 

COBP 

COBP 

SYNC. 

SYNC 

VALOE 

0. 

05 

TBOE-OSEB-DATA-LENGTH 

PIC 

9  (4) 

COMP 

SYNC 

VALOE 

0. 

05 

ROBBER -VS AH-READS 

PIC 

9(4) 

COMP 

SYNC 

VALOE 

0. 

05 

ROM BER -VS AH-H RITES 

PIC 

9(4) 

COMP 

SYNC 

VALOE 

0. 

\ 
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CABTFHCS  -  CABTAB  FUBCTIOB  CODES. 


01  CAHTAB-PUBCTIOB-CODES- 
03  CABTAfl-OPEB 
03  CABTAB-LOAD 
03  CABTAB-ISBT 
03  CABTAfl-CBBG 
03  CASTAB-DLET 
03  CABTAH -CLOSE 
03  GB 
03  GBL 
03  Gfl 
03  G9P 
03  GBP 
03  GBPT 
03  GBPL 


03  GC 
03  GCP 
03  GB 


PIC  XXIX  VALUE  *OPEH ' . 
PIC  XXXX  VALUE  'LOAD*. 
PIC  XXXX  VALUE  'ISBT • . 
PIC  XXXX  VALUE  •CHBG*. 
PIC  XXXX  VALUE  »DLET*. 
PIC  XXIX  VALUE  'CLSE  *. 
PIC  XXXX  VALUE  'GB 
PIC  XXXX  VALUE  'GB  L'. 
PIC  XXXX  VALUE  •GH 
PIC  XXXX  VALUE  'GBP 
PIC  XXXX  VALUE  'GBP  * . 
PIC  XXXX  VALUE  »GHPT». 
PIC  IXXX  VALUE  'GBPL* . 

PIC  X  VALUE  •  •. 
PIC  X  VALUE  *T  •  . 
PIC  X  VALUE  »L'. 
PIC  X  VALUE  •  •. 
PIC  XXXX  VALUE  *GP  '. 
PIC  XXXX  VALUE  *GPP  *. 
PIC  XXXX  VALUE  *GT  'I 
PIC  XXXX  VALUE  »GTP  '. 
PIC  XXXX  VALUE  *GC  '. 
PIC  XXXX  VALUE  'GCP  * . 
PIC  IXXX  VALUE  'GB 


03 

03 

03 

03 


05 

05 

05 

05 

GP 

GPP 

GT 

GTP 


88-COBTIBUE— BALE 
88-DISCABD-SUBTBEE 
88 -KEEP — ALL-CBILDBE 
PILLEB 
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APPENDIX  E 


INDEX  LOAD  PROG BAH  SOURCE 


IDENTIFICATION  DIVISION. 
PBOGBAH-ID.  HTBNDLIX. 
DATB-NBITTEN.  N0V77. 
DATE-COHPILED . 


EBVIBOHHENT  DIVISION. 

IHPOT-OOTPOT  SECTION. 

FILE-CONTROL. 

SELECT  NTB-FILE  ASSIGN  TO  NTBVSAfl 
ORGANIZATION  IS  INDEXED 
ACCESS  IS  SEQUENTIAL 
RECORD  1CBX  IS  V-NTB-ICEY 
FILE  STATUS  IS  FILE-STATUS. 

SELECT  NDL-FILE  ASSIGN  TO  NDLVSAH 
ORGANIZATION  IS  INDEXED 
ACCESS  IS  SEQUENTIAL 
BECOBD  KET  IS  V-ZBKET 
FILE  STATUS  IS  FILE-STATUS- 
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DATA  DIVISION . 
PILE  SECTION. 


PD  NTB-PILE 

LABEL  SECOBDS  ABE  STANDARD 
BLOCK  CONTAINS  0  BECORDS 
RECORD  CONTAINS  276  TO  4596  CHARACTERS 
DATA  RECORD  IS  TSAH-NTB-RECORD . 

COPT  fSAHNTB. 


66  V-IBLATLNG  BENARES  V-IBLAT  THRO  V-IBLNG-DIR. 


PD  NDL-PILE 

LABEL  RECORDS  ABE  STANDARD 
BLOCK  CONTAINS  0  RECORDS 
RECORD  CONTAINS  340  TO  1840  CHARACTERS 
DATA  RECORD  IS  VSAH-ZB-ZO-RECORD. 


COPT  OLPVZBZO. 


66  V— ZBLATLNG 


RENAHES  V-ZBLAT  THRO  V— ZBLNGSGN . 


-167- 

WORKING -STORAGE  SECTION. 


77 

BOP-SWITCH 

PIC  9 

VALUE 

0. 

88 

EOP 

VALOE 

1. 

77 

RETORH-STATOS 

PIC  Z (04) 

VALOB 

SPACES 

88 

SOCCESSPOL 

VALOE 

•0000* 

77 

DISPOSITION 

PIC  X  (03) 

VALOB 

•SHR». 

77 

PILE-STATOS 

PIC  X  (02) 

VALOE 

SPACES 

01 

COHHONICATION— 1 

BLOCK . 

COPT  CARTCB07. 


01  OSEfi-DATA-AHEA. 


KET-PEEDBACK-AHEA . 

10 

NDL 

-KEI. 

15 

ISL 

PIC 

9(5)  . 

15 

DGZ 

PIC 

A  (3)  . 

15 

REV 

PIC 

X. 

10 

PILLER 

PIC 

A  (15)  . 

PILLER 

RED SPINES 

KET-PEEDBACK-AREA 

10 

HTB-KEI . 

15 

ISL 

PIC 

9  (5)  . 

15 

CAT 

PIC 

9(5)  . 

15 

f  AK 

PIC 

9(4)  . 

15 

BEN 

PIC 

X  (6)  . 

15 

ELT 

PIC 

X. 

10 

PILLER 

PIC 

X  (3)  . 

IGZ 

RBNAHES  ISL  OP 

NDL-KET 

THRO  DGZ  OP 

NDL-KET . 

* 
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01  COOBDIN ATE-VBCTOB. 
05  NDX-LAT 
05  NDX-LON 
05  HDX— DELTA 
01  BK-LAT-LNG. 

03  BK-LAT. 

05  BK-LATD 
05  BK-LATB 
05  BK-LATS 
05  BK-LAT-DIB 
03  BK-LONG. 

05  B1C-LONGD 
05  BK-LONGB 
05  BK— LONGS 
05  BK-LONG-DIH 


PIC  S9  (9)  COBP  SYNC. 
PIC  S9  (9)  COMP  SYNC. 
PIC  S9(9)  COBP  SYNC. 


PIC  9(02)  VALOE  0. 

PIC  9(02)  VALOE  0. 

PIC  9(02)  VALOE  0. 

PIC  X(01)  VALOE  SPACE. 

PIC  9(03)  VALOE  0. 

PIC  9(02)  VALOE  0. 

PIC  9(02)  VALOE  0- 
PIC  X(01)  VALOE  SPACE. 


01  ALLOCATED-DSN. 

03  PILLEB  PIC  X  (04)  VALOE  »JLP.». 

03  PILLEE  PIC  X  (08)  VALOE  •VSABNDL.* . 

03  PILLEE  PIC  X  (05)  VALOE  •ZBZO.». 

03  EEV-POB-DSN  PIC  X(01)  VALOE  •B». 

03  PILLEE  PIC  X(01)  VALOE  SPACE. 


01  DD-HAHE 


PIC  X  (08)  VALOE  »NDLVSAB  ». 


01  DONHY-DD-NABE. 

03  PILLEE  PIC  X (07)  VALOE  *DOBB YDD * . 

03  DOHBY-DD-NAME-EEV  PIC  X(01)  VALOE  *B». 


01  VALOE-OP-BEV-TABLE  PIC  X  (03)  VALOE  »BCD* . 
01  TABLE-OP-BEV-VALOES 

BEDBPINES  VALOE-OP-BEV-TABLE. 

03  BEV-LETTEB  PIC  X  OCCORS  3  TIBES 

INDEXED  BY  BEV-NDX • 


01  ACCOBOLATORS. 

03  ONE-CON  PIC  S9(06)  COBP  SYNC  VALOE  *1. 
03  TOTAL -ISBTS  PIC  S9  (06)  COBP  SINC  VALOE  ♦0. 
03  TOTAL-GETS  PIC  S9  (06)  COBP  SYNC  VALOE  *0. 
03  TOTAL-POTS  PIC  S9  (06)  COBP  SYNC  VALOE  *0. 
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PROCEDURE  DIVISIOB. 


OOO-OPEN -INITIALIZE. 

HOVE  24  TO  HAX-USER-AREA-LENGTH. 

HOVE  'LOAD*  TO  FUNCTION -CODE. 

HOVE  »P*  TO  HODE-IHDICATOR. 

*  OPEH  INDEX  PILE  POR  INTEGER  COORDINATES. 

CALL  'CARTAH*  USING  COHHUNICATION-BLOCK . 

HOVE  *2 1  TO  TRUE-DSER-DATA-LENGTH. 

HOVE  •ISRT*  TO  PU NCTION-CODE. 


OIO-OPEM -PILES. 

OPEN  INPUT  NTB-PILE • 

PERFORH  100-CQNVERT-CALL-NTB  THRU  100-EXIT 

UNTIL  EOP. 

HOVE  ♦9  TO  TRUE-OSER-DATA-LENGTH. 

PERFORH  200-OPEN-CLOSE— HDL-PILES  THRU  200-EXIT 

VARTING  RBV-NDX  PROH  1  BI  1 
UNTIL  REV-NDX  >3. 


900-LAST-CALL-T0-CARTOR. 

DISPLAT  'TOTAL  I  READS  =  *  TOTAL-GETS, 

•,  TOTAL  i  WRITES  =  •  TOTAL-PUTS, 

•,  TOTAL  #  INSERTS  =  •  TOTAL-ISRTS,  ».». 
HOVE  'CLSE*  TO  FUNCTION-CODE. 

CALL  •CARTAH*  USING  COHHUNICATION-BLOCK. 


GOBACK. 


100-CON VERT -CALL -NTB. 

READ  NTB-PILE 
AT  END 

HOVE  1  TO  EOP-SNITCH 
CLOSE  NTB-PILE 
GO  TO  100-EXIT- 

HOVE  V-IBLATLNG  TO  WK-LAT-LNG . 

HOVE  V-NTB-KET  TO  NTB-KET. 

PERFORH  500-CONVERT-CALL  THRU  500-EXIT. 
100-EXIT. 

EXIT. 
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200-OPEN-CLOSE-NDL-FILES. 

HOVE  REV-LETTER  (REV-NDX)  TO  REV-FOR-DSN, 

DOHHY-DD-NAHE-REV. 
CALL  'ALLOCD*  USING  RETURN-STATUS, 

DD-NAHE, 

ALLOCATED-DSN, 

DISPOSITION. 

IP  SUCCESSFUL 

HOVE  0  TO  EOF-SilTCH 
OPEN  INPUT  NDL-PILE 

PERFORM  300 -CON VERT -CALL-NDL  THRO  300-EXIT 

UNTIL  EOF 

CALL  'DEALLC*  USING  RETURN-STATUS, 

DD-NAHE 

IF  SUCCESSFUL 

NEXT  SENTENCE 

ELSE 

DISPLAY  'STATUS  *  <»,  RETURN-STATUS, 

•>,  DDN  *  ',  DD-NAHE 
HOVE  *0000*  TO  RETORN-STATUS 

ELSE 

DISPLAY  'STATUS  =  <*,  RETURN-STATUS, 

•>,  DDN  =  ',  DD-NAHE, 

',  DSN  =  ',  ALLOCATED-DSN 
HOVE  *0000'  TO  RETURN-STATUS. 

CALL  'DEALLC*  USING  RETURN-STATUS, 

DUHHY-DD— NAHE . 

IF  NOT  SUCCESSFUL 

DISPLAY  'STATUS  =  <»,  RETURN -STATUS , 

•>,  DDN  =  ',  DUMMY -DD-NAHE 
HOVE  *0000'  TO  RETURN-STATUS. 

200-EXIT. 

EXIT. 
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300— CONVEBT— CALL-NDL . 

BEAD  NDL-PILE 
AT  END 

HOV E  1  TO  EOP-SWITCH 
CLOSE  NDL-PILE 
GO  TO  300-EXIT. 

HOVE  V-ZBLATLHG  TO  WK-LAT-LNG. 

HOVE  V-ZBKEY  TO  NDL-IGZ. 

HOVE  V-ZBBEV  TO  BBV  OP  NDL-KEY. 

PSBPOBH  500-CON VEBT-CALL  THBO  500-EXIT. 
300-EXIT. 

EXIT. 


500 -CONVEBT -CALL. 

COHPOTE  NDX-LAT  =  (60  *  WK-LATD  ♦  WK-LATH) 

*  60  ♦  BK-LATS. 

IP  BK-LAT-DIH  =  ‘S* 

COHPOTE  NDX-LAT  =  -  NDX-LAT. 

COHPOTE  NDX-LON  =  (60  *  BK-LONGD  ♦  BK-LONGH) 

*  60  ♦  WK -LONGS. 

IP  BK— LONG— DIB  =  •»» 

COHPOTE  NDX-LON  =  -  NDX-LON. 

CALL  •CABTAH*  USING  COHHONICATION -BLOCK , 

OSER-DATA-AREA, 
COORDINATE-VECTOR . 

ADD  HOHBER— VSAH-BBITES  TO  TOTAL-POTS. 

ADD  NOHBEB-VSAH-READS  TO  TOTAL-GETS. 

HOVE  ZEROES  TO  NUHBER-VSAH-BRITES, 
NOHBEB-VSAH-READS. 

IP  SOCCESSPUL-CABTAH 

ADD  ONE-CON  TO  TOTAL-ISRTS 

ELSE 

DISPLAY  •STATUS  CODE  =  <•  STATOS-CODE, 
•>,  KEY  =  <*, 

KEY-FEEDBACK -AREA  •>.*. 


500-EXIT 

EXIT 
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APPENDIX  P 


VSAH  PILE  DEFINITION  EXAMPLE 


//DPDLGEO 
//STEPCAT 
//STSPRINT 
//YSNTB 
//SI SIM 

DEPINE 


/* 


EXEC  PGH=IDCAMS,BEGION=256K 
DD  DISP-SHR  f DSN  =AMASTCAT 
DD  SYSOOT=A 

DD  ONIT=3330,TOL=SER=VSAH02 ,SPACE= (TBK, 1) 
DD  * 

CLOSTEB (- 

NAME (YSAH .NTB .GEONDX) - 
PILE  (?SNTB)  - 
YOLOME  (VSAM02)  — 

CILINDEBS  (15)  - 
SBABEOPTIONS  (1)  - 
CISZ  (4096)  - 
NONINDEXED— 

BECOBDSIZE (4089  4089)- 

SPEED- 

0MIQ0E- 

OWNEB  (ADHNSD) )  — 

DATA  (- 

NAME  (YSAM .NTB .GEONDX. DATA)  )  - 
CATALOG  (AHASTCAT) 
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APPENDIX  G 


CIRCLE  SEARCH  PBOGBAH  SOORCE 


ID  DIVISION. 
PROGBAH-ID.  ONETEHE. 
DATE— WRITTEN .  HAT  77. 
DATE-COHPILED . 

REMARKS . 


ENVIRONHENT  DIVISION. 

INPUT-OOTPOT  SECTION. 

FILE-CONTROL. 

SELECT  COORD-PILE  ASSIGN  TO  QT— S— DATA IN . 
SELECT  PRINT-PILE  ASSIGN  TO  OT-S-PRINTER . 


DATA  DIVISION. 
PILE  SECTION. 


PD 

COORD-PILE 

LABEL  RECORDS  ARE 

STANDARD 

BLOCK  CONTAINS  0 

RECORDS. 

Ot 

PILLER 

PIC  X  (80)  . 

FD 

PRINT-PILE 

LABEL  RECORDS  ARE 

STANDARD 

BLOCK  CONTAINS  0 

RECORDS. 

01 

PRINT-REC 

PIC  X  ( 132) 

L 
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HORKING-STOBAGE  SECTION. 


01  COHHONICATION— BLOCK • 
COPI  CARTCB07 . 


01  CONTROL -CARD. 

03  CNTRL-RADIOS  COBP-1  SYNC  VALUE  +3.0E+3. 

03  CHTRLCRD-RADIOS-SECS  COBP-1  SYNC. 

03  CNTRLCRD— RADIOS— IN-BETEBS  COBP-1  SYNC. 


03  CBTRL-ONITS 

PIC  IX  VALOE 

•BT  *  . 

88 

NAOT-HILES 

VALUE 

*NB  •  . 

88 

KILO-BETERS 

VALOE 

•KB*  . 

88 

FEET 

VALOE 

*PT  *  . 

88 

BETERS 

VALOE 

•BT*  . 

COPY  CARTPNCS. 

01 


* 

* 


01 


COORD-WORK-ABBA. 


03 

PILLER 

PIC 

X(8) 

VALOE 

SPACES. 

03 

ADR 

-NOBBER 

PIC 

X{4) 

VALOE 

SPACES. 

03 

PILLER 

PIC 

X{21) 

VALOE  SPACES 

03 

LAT 

-IN. 

05 

LAT-DEG 

PIC 

99 

VALOE 

ZEROS. 

05 

LAT-BIN 

PIC 

99 

VALOE 

ZEROS. 

05 

LAT-SEC 

PIC 

99 

VALOE 

ZEROS. 

05 

LAT-HS 

PIC 

X 

VALOE 

SPACES. 

88  SOOTH 

VALOE  »S» 

. 

03 

LON 

-IN. 

05 

LON -DEG 

PIC 

999 

VALUE 

ZEROS. 

05 

LON -BIN 

PIC 

99 

VALOE 

ZEROS. 

05 

LON -SEC 

PIC 

99 

VALOE 

ZEROS. 

05 

LON-EW 

PIC 

X 

VALOE 

SPACES. 

88  VEST 

VALOE 

• 

03 

PILLER 

PIC 

X  (33) 

VALOE  SPACES 

KEY- 

-FEEDBACK-AREA. 

05 

MDL-KEY  . 

10  ISL 

PIC 

9(5)  . 

10  DGZ 

PIC 

X  (3)  - 

10  REV 

PIC 

X. 

05 

PILLER 

PIC 

X  (15)  . 
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01  RESULT-AREA. 

03  INPUT -TO- OUTPUT. 
05  FILLER 
05  ADN-OUT 
05  FILLER 
03  FILLER 
03  IGZ-OUT. 

05  BET 
05  FILLER 
05  ISL 
05  DGZ 
03  FILLER 

03  DIST-OUT  PIC 

03  FILLER 
03  DIST-ONITS 
03  FILLER 


PIC  X (8)  VALUE  SPACES. 
PIC  X (4)  VALUE  SPACES. 
PIC  X  (68)  VALUE  SPACES. 
PIC  X (2)  VALUE  SPACES. 

PIC  X. 

PIC  X. 

PIC  ZZZZ9. 

PIC  XXX. 

PIC  X (3)  VALUE  SPACES. 
ZZZ.ZZ9.9  VALUE  •  0.0* 

PIC  X  VALUE  SPACES. 

PIC  XX  VALUE  SPACES. 
PIC  X  (26)  VALUE  SPACES. 


01  LIHIT-VECTOBS. 

03  LOR -LIHITS. 
05  LOW-LAT 
05  LON -LON 
03  HIGH— LIMITS . 
05  HIGH-LAT 
05  HIGH-LOH 


PIC  S9  (8)  COUP  SYNC . 
PIC  S9  (8)  COMP  SYNC. 

PIC  S9(8)  COUP  SYNC. 
PIC  S9  (8)  COHP  SYNC. 


01  WORK -AREA. 

03  LATR  COHP— 2  SYNC  VALUE  ZERO. 

03  LATO  PIC  S9  (8)  COHP  SYNC  VALUE  ZERO. 

03  LONO  PIC  S9  (8)  COHP  SYNC  VALUE  ZERO. 

03  CARTAH-COORDINATE-VECTOR . 

05  LAT1  PIC  S9  (8)  COHP  SYNC  VALUE  ZERO. 

05  LON  1  PIC  S9  (8)  COHP  SYNC  VALUE  ZERO. 

03  DSTNCE1  COHP-1  SYNC  VALUE  ZERO. 

03  AZIHUTH1  COHP-1  SYNC  VALUE  9.99E+02. 

03  DSTNCE2  COHP-1  SYNC  VALUE  ZERO. 

03  ESTIHATOR  COHP-1  SYNC  VALUE  4.5E+01. 

03  NDX -DELTA  PIC  S9  (9)  COHP  SYNC. 

03  ANSWER-FACTOR  COHP-1  SYNC  VALUE  ZERO. 

03  IFLAG  PIC  S9(8)  COHP  SYNC  VALUE  *5. 

03  ONE-CON  PIC  S9(8)  COHP  SYNC  VALUE  *1. 

03  HAX-H-G -CELLS  PIC  S9(8)  COHP  SYNC  VALUE  +100 
03  SECRAD  COHP-1  SYNC  VALUE  .48481368E-05 

03  NUH-ADNS  PIC  S9  (4)  COHP  VALUE  *1000. 

03  NOME-FLAG  PIC  X  VALUE  LOW-VALUES. 

88  NONE-IN  VALUE  HIGH-VALUES. 
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01  BISTO-GBAH  sue. 

03  B-G-HIN  PIC  S9  (8)  COMP. 

03  B-G-HAX  PIC  S9  (8)  COHP. 

03  H-G-CELL-ZEBO  PIC  S9 (8)  COHP- 

03  H-G-CELLS  PIC  S9  (8)  COHP  0CC08S  100  TIHES. 
03  H-G-CBLL-HAX  PIC  S9  (8)  COHP. 


LINKAGE  SECTION. 

01  PASH -FIELD. 

03  PAHH-LENGTH  PIC  9 (4)  COHP. 

88  VALID-PABH-PASSBD  VALUE  7. 
03  PABH-BADIOS  PIC  9(5). 

03  PABH-ONITS  PIC  XX. 

03  PABH-BOFFEBS  PIC  99. 

03  PABH-HOH-ADNS  PIC  999. 
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PROCEDURE  DI7ISIOM  USING  PABH-FIELD. 


0000-DRIVEB. 

HOVE  24  TO  HAX-USBH-ABEA-LENGTH. 

BOVB  CARTAfl-OPEM  TO  FUNCTION-CODE. 

IF  PABB -LENGTH  MOT  <  9 

HOVE  PABB-BOFFERS  TO  HAI-NOHBER-BOFFEBS. 

CALL  'CABTAH*  DSIHG  COHHOMICATIOH -BLOCK - 
IF  HOT  GOOD -CABTAB-OPEM 

DISPLAY  'BAD  OPEM  BETOBH  CODE* 

GOB ACM. 

OPEM  IMPOT  COOBD— FILE 

OOTPOT  PHINT-FILE. 

HOVE  ALL  LOM-VALOES  TO  HISTO-GBAH. 

BOVE  *1000000  TO  H-G-HIM. 

IF  PABH-LEMGTH  MOT  <  7 

HOVE  PABB-BADIDS  TO  CHTRL— RADIUS 
HOVE  PABH-OMITS  TO  CMTBL-OHITS . 

IF  PABH-LEMGTH  MOT  <  12 

HOVE  PABH-MOB-ADMS  TO  HUB— ADNS . 

IF  MAOT-HILES 

COHPUTE  CMTBLCBD— RADIOS— SECS  =  60.0  • 

(CHTRL -RADIUS) 

HOVE  *1852.0  TO  AHSHEB-FACTOB 

ELSE 

IF  KILO-HETEBS 

COHPUTE  CMTBLCBD— RADIUS— SECS  =  60 .0  * 
(CMTBL-BADIUS  /  1.852) 

HOVE  *1000.0  TO  A MS HEB— FACTOR 

ELSE 

IF  FEET 

COHPUTE  CHTBLCRD-BADIUS -SECS  =  60.0  * 
(CNTRL-B ADIUS  /  6080.0) 

HOVE  *0.3048  TO  AHSHEB-FACTOB 

ELSE 

COHPUTE  CMTBLCBD-B ADIUS -SECS  =  60.0  * 
(CMTBL-BADIUS  /  1852.0) 

HOVE  *1.0  TO  AN SHER-F ACTOR. 

COHPUTE  CHTRLCBD-BADIUS-IM-HETERS  * 

CMTBL-BADIUS  *  AHSHEB-FACTOB. 
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0 100— PROCESS— LOOP . 

BEAD  COORD-PILE  INTO  COORD-BORK-AREA 
AT  END  GO  TO  0100-FINISH -OP. 

NOTE  CNTRLCRD— RADIOS— SECS  TO  HIGH-LON. 

80LTIPLT  HIGH-LON  BY  *1.1  GIVING  HIGH-LAT. 
CONPOTE  LATO  =  (LAT-DEG  *  60  ♦  LAT-HIN)  *  60 

♦  LAT-SEC. 

*  IP  SOOTH  COHPOTE  LATO  =  -  LATO. 

CONPOTE  LONO  =  (LON-DEG  *  60  ♦  LON-HIN)  *  60 

♦  LON-SEC. 

IP  NEST  COHPOTE  LONO  =  -  LONO. 

COHPOTE  LATH  =  LATO  *  SECRAD. 

CALL  •HAPSID*  OSING  LATR,  HIGH-LON. 

COHPOTE  LOW-LAT  =  LATO  -  HIGH-LAT. 

COHPOTE  LON-LON  *  LONO  -  HIGH-LON. 

COHPOTE  HIGH-LAT  *  LATO  ♦  HIGH-LAT. 

COHPOTE  HIGH-LON  =  LONO  ♦  HIGH-LON. 

MBITS  PRINT-REC  PROH  COORD-BORK-AREA 

AFTER  ADVANCING  3  LINES. 

HOVE  SPACES  TO  RESOLT-AREA. 

HOVE  CNTR L-ONITS  TO  DIST-ORITS. 

HOVE  ADN— NOHBER  TO  ADN-ODT. 

HOVE  HIGH-VALOES  TO  NONE-PLAG. 

HOVE  ZERO  TO  NOHBER-VSAH-READS . 

HOVE  GR  TO  FONCTION-CODE • 

CALL  •CARTAH*  OSING  COHHONICATION -BLOCK, 

KEI -FEEDBACK-AREA , 
CABTAH-COORDINATE— VECTOR, 
NDX-DELTA , 

LON— LIHITS , 

HIGH-LIHITS. 

PERPORH  0200-BALK-PATH  THRO  0200-BALK-PATH-EXIT 
ONTIL  NOT  HORE-PATH. 

IP  NONE-IN 

HOVE  CNTRL-BADIOS  TO  DIST-ODT 
HOVE  ‘NONE  IN  •  TO  IGZ-OOT 
BRITE  PRINT-REC  PROH  RESOLT-AREA. 

IP  NOHBER-VSAH-READS  >  H-G-HAX 

HOVE  NOHBER-VSAH-READS  TO  H-G-HAX. 

IP  NOHBER-VSAH-READS  <  H-G-HIN 

HOVE  NOHBER-VSAH-READS  TO  H-G-HIN. 

IP  NOHBER-VSAH-READS  <  ONE-CON 
ADD  ONE-CON  TO  H-G-CELL-ZEBO 

ELSE 

IP  NOHBER-VSAH-READS  >  HA X-H-G-CELLS 
ADD  O  TO  H-G-CELL-HAX 

ELSE 

ADD  *1  TO  H-G-CELLS  (NOHBER-VSAH-READS) . 
SOBTRACT  1  PROH  NOH-ADNS. 

IP  NOH-ADNS  >  0 

GO  TO  0 lOO-PROCESS-LOOP . 
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0 100-FINISH -OP. 

DISPLAT  *BIN  #  READS  =  »,  H-G-BIH, 

•;  BAX  «  READS  =  »,  H-G-BAX, 

•;  CELL (0)  *  •,  H-G -CELL- ZERO , 

•;  CELL  (101)  =  •,  H-G-CBLL-HAX . 

IF  H-G-BAX  >  100 

BOTE  *100  TO  H-G-BAX. 

PSRFORB  H-G -DISPLAT  VARYING  NOBBEB-V SAB-READS 
FROB  1  BY  1  ONTIL  NOBBER-VSAB-READS  >  H-G-BAX. 
BOVE  CARTAB-CLOSE  TO  FONCTION-CODE. 

CALL  •CARTAH*  OSING  COBBO NICATION-BLOCK . 

CLOSE  COORD -FILE 
PRINT-FILE. 

GOBACK . 


H-G-DISPLAY. 

DISPLAY  •  CELL (•  ,  NOBBER-VSAB-READS,  •)  =  *, 
H-G-CELLS  (NOBBER-VSAB-READS)  . 
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0200-NALK-PATH. 

MOVE  GNP  TO  PON CT ION -CODE . 

HOLTIPLT  NDX-DELTA  BI  ESTIMATOR  GIVING  DSTNCE2. 
CALL  'VECTOR*  USING  LAT1  LON1 

LATO  LONO 

DSTNCE1  IPLAG. 

SUBTRACT  CBTRLCRD -RADIUS-IN -METERS  PROM  DSTNCE1. 
IP  DSTNCE2  <  DSTNCE1 

MOVE  88-DISCARD-SUBTREE  TO  PUNCTION-CODE-4 
ELSE 

IP  DSTNCE2  NOT  >  -  DSTNCE1 

MOVE  88-KEEP-ALL -CHILDREN  TO  PUNCTION-CODE-4 
PERPORH  0300-KEEP-ALL  THRU  0300-KEEP-ALL-EXIT 
UNTIL  NOT  MORE-PATH 

HOVE  88 -CONTINUE -BALK  TO  PUNCTION-CODB-4 . 

CALL  'CARTAM1  USING  COMMUNICATION -BLOCK , 

KEY -PEEDBACK -AREA , 
CARTAH-COORDINATE -VECTOR, 
NDX-DELTA . 

0200— MALK-PATH— EXIT. 

EXIT. 


0300-KEEP-ALL. 

IP  TRUE -USER-DATA -LENGTH  *  9 

CALL  'VECTOR*  USING  LATO  LONO 

LAT1  LON  1 
DSTNCE1  IPLAG 

HOVE  CORE  NDL-KET  TO  IGZ-OUT 
DIVIDE  DSTNCE1  BI  ANSWER-PACTOR 
GIVING  DIST-OOT 
HOVE  LOM-VALOES  TO  NONE-PLAG 
HRITE  PRINT-REC  PROM  RESULT-AREA 

APTER  ADVANCING  1  LINE. 
CALL  'CARTAM'  USING  COMMUNICATION-BLOCK, 

KEI-PEEDBACK-AREA , 
CABTAM-COORDINATE -VECTOR, 
NDX-DELTA. 

0  300-K  EEP-ALL -EXIT. 

EXIT. 
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APPENDIX  H 


INCLOSION/EXCLOSIOH  ABBA  SEAHCH  PBOGHAH  SOOBCE 


ID  DIVISION. 

PBOGHAH -ID.  XCLODOB2. 
DATE-HBITTEN.  HAI  77. 
DATE-COHPILED. 

BEHABKS  . 


ENVIBONHENT  DIVISION. 

INPOT— ODTPOT  SECTION. 

PILB-CONTHOL- 

SELECT  CNTBLCHD  ASSIGN  TO  OT-S-CONTHOL. 

SELECT  LAONCH-POINT-PILE  ASSIGN  TO  OT-S-LAUNCH. 
SELECT  SOHTED— PILE  ASSIGN  TO  OT-S-SHTNOLL . 
SELECT  SOBTED-OOTPOT-PILE  ASSIGN  TO  OT-S-NTBS . 
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DATA  DIVISIOH. 


PILE  SECTION. 

SD  SOBTBD-PILE. 

01  SELECTED-BECOBD. 

03  PBIHABY-KEY  PIC  1(21). 

03  PILLEB  PIC  X  (15)  . 

PD  CNTBLCBD 

LABEL  BECOBDS  ABE  STANDABD 
BLOCK  CONTAINS  0  BECOBDS. 

01  PILLEB  PIC  X  (80)  . 

PD  LAONCH-POINT-PILE 

LABEL  BECOBDS  ABE  STANDABD 
BECOBD  CONTAINS  21  CRABACTEBS 
BLOCK  CONTAINS  0  BECOBDS. 

01  LP-DATA  PIC  X  (21) . 

*  BEAD  INTO  LP-DATA-AHEA. 

PD  SOBTED-OOTPOT-PILE 

LABEL  BECOBDS  ABE  STANDABD 
BLOCK  CONTAINS  0  BECOBDS. 

01  OOT-BEC-S  PIC  X  (36). 


NOBKING-STOBAGE  SECTION. 


01 

SIXTY 

PIC 

S9  (8)  COHP 

SYNC 

VALUE 

01 

COH  HO  NICATION  -BLOCK. 

COPY  CARTCB07. 

01 

NDX 

-VECTOBS. 

05 

NDX-LAT 

PIC 

S9  (8) 

COHP 

SYNC. 

05 

NDX -LON 

PIC 

S9  (8) 

COHP 

SYNC. 

05 

NDX -DELTA 

PIC 

S9  (8) 

COHP 

SYNC. 

01 

LIHIT-VECTOBS. 

05 

LON— LIHITS • 

10  LON-LAT 

PIC 

S9  (8) 

COHP 

SYNC. 

10  LON-LON 

PIC 

S9  (8) 

COHP 

SYNC. 

05 

BIGH-LIHITS . 

10  BIGH-LAT 

PIC 

S9  (8) 

COHP 

SYNC. 

10  HIGR-LON 

PIC 

S9  (8) 

COHP 

SYNC. 
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01  CNTBLCBD-IN. 

*  COLS  12345 

*  12345678901234567890 123456789012345678901234567890 

*  >  2500KH  558V25  090E+/-090  ISLEiISLE# 

*  LAT  LONG  LOW  HIGH 


03  FILLEB  PIC  X. 

88  BXCLOSION-ABEA-SEARCH  VALOE  •>». 
88  IHCLDSION-ABEA-SEABCH  VALOE  •<•- 


03 

FILLEB 

PIC 

X  (4)  . 

03 

CNTBL-BADIOS 

PIC 

9(5)  - 

03 

CNTBL-ONITS 

PIC 

XX. 

88 

NAOT-HILES 

VALOE 

•NM* 

88 

KILO-METERS 

VALOE 

•KM* 

88 

FEET 

VALOE 

•FT* 

88 

METERS 

VALOE 

*HT  • 

03 

FILLEB 

PIC 

X(5)  . 

03 

CNTRL-CENTEB-LAT 

-DEG  PIC  99- 

03 

FILLEB 

PIC 

X. 

88 

CNTBL-SOOTH 

VALOE 

•s». 

03 

FILLEB 

PIC 

XXX  VALOE 

03 

CNTEL— DELTA -LAT 

PIC 

99. 

03 

FILLEB 

PIC 

X. 

03 

CNT  BL-CEN  TE  R-LON  ■ 

-DEG  PIC  999. 

03 

FILLEB 

PIC 

X. 

88 

CNTBL-WEST 

VALOE 

•w*. 

03 

FILLEB 

PIC 

XXX  VALOE 

03 

CNTBL-DELTA -LON 

PIC 

999. 

03 

FILLEB 

PIC 

1(4)  . 

03 

BIN 

-ISLE 

PIC 

9(5)  . 

03 

MAX 

-ISLE 

PIC 

9(5)  . 

03 

FILLER 

PIC 

1(3)  . 

03 

LP- 

DATA-ABEA. 

05 

LATD 

PIC 

99. 

05 

LATH 

PIC 

99. 

05 

LATS 

PIC 

99. 

05 

NS-DIR 

PIC 

X. 

88  LP-SOUTH 

VALOE 

•s*. 

05 

FILLER 

PIC 

X. 

05 

LOND 

PIC 

999. 

05 

LONH 

PIC 

99. 

05 

LONS 

PIC 

99. 

05 

EW-DIB 

PIC 

X. 

88  LP-WEST 

VALOE 

•w*. 

05 

LP— RADIOS 

PIC 

9(5)  . 

03 

FILLER 

PIC 

X  (6)  . 

01  CNT RLCRD-TBAN SFOB H  BEDEFINES  CNTRLCHD-IN  PIC  X  (80)  . 


COPT  CABTFHCS 
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RESULT- 

AREA. 

03 

KEY 

-OUT. 

05 

ISL 

PIC 

9(5)  . 

05 

FILLER 

PIC 

X  (16) 

m 

03 

LAT 

-OOT. 

05 

LAT -DEG 

PIC 

99 

VALOE 

ZEROS. 

05 

LAT-HIN 

PIC 

99 

VALOE 

ZEROS. 

05 

LAT-SEC 

PIC 

99 

VALOE 

ZEROS. 

05 

LAT-NS 

PIC 

X 

VALOE 

SPACES 

03 

LON-OOT. 

05 

LON-DEG 

PIC 

999 

VALOE 

ZEROS - 

05 

LON-HIN 

PIC 

99 

VALOE 

ZEROS. 

05 

LON-SEC 

PIC 

99 

VALOE 

ZEROS. 

05 

LOH-EW 

PIC 

X 

VALOE 

SPACES 

01  WORK-AREA. 

03  LATH  COHP-2  SYNC  VALOE  ZERO. 

03  HAXIHOH-RADIUS-IN-HETERS  COHP-1  SYNC. 

03  CNTRLCHD— RADIOS-IN-HETERS  COHP-1  SYNC. 

03  ABS-LAT  PIC  9(8)  COHP  SYNC  VALOE  ZERO. 

03  DST5CE1  COBP-1  SYNC  VALUE  ZERO. 

03  SECRAD  COHP-1  SYNC  VALUE  .4848 1368E-0 5 . 

03  DSTNCE2  COHP-1  SYNC  VALUE  ZERO. 

03  ESTIHATOR  COHP-1  SYNC  VALUE  4.5E+01. 

03  LAT-LNG-WORK-AREA  PIC  S9  (8)  COHP  SYNC  VALUE  ZERO. 

03  I FLAG  PIC  S9{8)  COHP  SYNC  VALOE  *5. 

03  TOTAL— NOHBER— READS  PIC  S9{6)  COHP  SYNC  VALUE  ZERO. 
03  HIN— ISLE— NOHBER  PIC  9(5)  COHP-3  VALOE  ZERO. 

03  HAX -ISLE— NOHBER  PIC  9(5)  COHP-3  VALOE  ZERO. 

03  NOHBER —RECORDS  PIC  9(5)  COHP-3  VALUE  ZERO. 

03  NONE-FLAG  PIC  X  VALUE  LOW-VALOBS. 

88  NONE— IN  VALOE  HIGH-VALOES. 

03  OOTSIDE-ALL-CIRCLES  PIC  X  VALOE  SPACE. 

03  INSIDE -A-CIHCLE  PIC  X  VALOE  SPACE. 

03  LP-END-FLAG  PIC  XXX  VALOE  SPACES. 

88  END-OF-LPS  VALOE  'END*  . 

03  NUHBER-OF-LAONCH-POINTS  OSAGE  INDEX. 


01  LAONCB -POINT-DATA  SYNC. 

03  LP-TABLE  OCCURS  100  TIHES  INDEXED  BY  LAONCH-POINT. 
05  LP-LAT  PIC  S9  (8)  SYNC  COHP. 

05  LP-LON  PIC  S9  (8)  SYNC  COHP. 

05  LP-DELTA-LAT  PIC  S9(8)  SYNC  COHP. 

05  LP-DELTA-LON  PIC  S9  (8)  SYNC  COHP. 

05  LP -RADIOS -I N-HETERS  SYNC  COHP-1. 
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PROCEDURE  DIVISION . 


0000-DRIVER. 

CALL  *TIHEAX*  USING  INTERVAL. 

MOVE  21  TO  MAX-DSER-AREA-LENGTH . 

MOVE  CARTAM-OPEH  TO  PDNCTION-CODE . 

CALL  'CARTAM*  USING  COMMUNICATION-BLOCK. 
IF  HOT  GOOD-CARTAH-OPEN 

DISPLAT  'BAD  OPEN  RETURN  CODE* 
GOBACK. 

OPEN  INPUT  CNTRLCRD. 


0000— CNTL— LOOP • 

HEAD  CNTRLCRD  INTO  CNTRLCRD-IN 

AT  END  MOVE  CARTAN-CLOSE  TO  FUNCTION-CODE 

CALL  *CARTAH *  USING  COMMUNICATION -BLOCK 

CLOSE  CNTRLCRD 

GOBACK- 

TRANSFORM  CNTRLCRD-TRANSFOBH  FROM  SPACES  TO  ZEROES. 
HOVE  MIN-ISLE  TO  MIN— ISLE-NUHBEB . 

HOVE  HAX-ISLE  TO  MAX— ISLE— NUMBER. 

HULTIPLT  CNTRL-CENTER-LAT-DEG  BT  3600  GIVING  NDX-LAT 
IF  CNTRL— SOUTH  COMPUTE  NDX-LAT  *  -  NDX-LAT. 

HULTIPLT  CNTRL -DELT A-LA T  BT  3600  GIVING  NDX -DELTA. 
COMPUTE  LON-LAT  =  NDX-LAT  -  NDX -DELTA. 

COMPUTE  HIGH-LAT  *  NDX-LAT  ♦  NDX-DELTA . 

HULTIPLT  CNTRL-CENTER-LON -DEG  BY  3600  GIVING  NDY-LON 
IF  CNTRL-HEST  COMPUTE  NDX-LON  =  -  NDX-LON . 

MULTIPLY  CNTBL-DELT A-LON  BT  3600  GIVING  NDX-DELTA. 
COMPUTE  LOW-LON  *  NDX-LON  -  NDX-DELTA. 

COMPUTE  HIGH-LON  =  NDX-LON  ♦  NDX-DELTA. 

MOVE  CNTRL-RADIUS  TO  LP-BADIUS. 

HOVE  ZEROS  TO  CNTRLCRD-RADIUS -IN -METERS , 

MAXIMUM -RADIUS-IN -METERS, 
NUMBER-RECORDS. 

IF  INCLUSION-AREA -SEARCH 

HOVE  88— DISCARD -SUBTREE  TO  OUTSIDE-ALL-CIRCLES 
HOVE  88-KEEP-ALL-CHILDREN  TO  IN SIDE -A -CIRCLE 

ELSE 

HOVE  88-KEEP-ALL-CHILDREN  TO  OUTSIDE-ALL-CIRCLES 
HOVE  88 -DISCARD -SUBTREE  TO  INSIDE-A -CIRCLE. 

SET  LAUNCH-POINT  TO  1 . 

PERFORM  00 10-CRVRT -COORDS  THRU  0010-EXIT. 

HOVE  MAIIBOH-BADIUS-IN-HETERS 

TO  CNTRLCRD-R ADIUS-IN-M ETERS . 
MOVE  ZERO  TO  MAXI HD H-RADIUS-IN -METERS 


IF  LP-LAT  (1)  =  ZERO 

OPEN  INPUT  LAUNCH-POINT-FILE 
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1 


PER FOBS  OOIO-BEAD-LAUICB-POINTS  TBBO  0010-EXIT 
T1BIIVG  LAORCH— POINT  PBOH  1  BT  1 
OWTXL  (LAORCH— POXRT  >  100)  OB  EBD-OF-LPS 
CLOSE  LAOBCB-POIBT-PILE. 

BOVE  HIGH— TILDES  TO  BOBB-FL1G. 

BOTE  GB  TO  7DBCTI0B -CODE • 

SOBT  SOBTED-FXLB  OR  1SCEBDIRG  REX  PBIHABX-RBT 
IRPOT  PBOCEDOBE  CABTAB-RETRIETAL 
GITZRG  SORTED— OOTPOT— FILE. 


DISPLAX  'FIRAL  STATUS  *  STATUS -CODE, 

•;  ROB  BEADS  *  ROBBER— T SAB-READS, 

•;  •  IHSTS  «  ROBBER -RECORDS. 

GO  TO  0 000 -CHTL -LOOP. 


00 1 0 -BE AD -LAUNCH-POINTS - 
BEAD  LAORCB-POIRT-FILE 
AT  BRD 

BOTE  •ERD*  TO  LP-ERD-FLAG 
GO  TO  0010-EXIT* 

TRARSFOBB  LP-DATA  PBOfl  SPACES  TO  ZEROS. 
BOTE  LP-DATA  TO  LP-DATA -ABBA. 


;? 

i 
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OOIO-CHVBT-COOBDS. 

SET  HOBBEB-OF-LAOHCH-POIRTS  TO  LAORCB-POIRT. 

IP  LP-BADIOS  *  ZEBO 

BOTE  CHTBLCBD-BADZOS-XR-BETERS  TO 

LP-BADIOS-IR-BETEBS  (LAOHCB-POIRT) 

ELSE 

IP  HAOT-BILBS 

COB  POTS  LP— BADIOS-II-BETEBS  (LAORCB-POIRT)  * 
LP-BADIOS  •  1852.0 

ELSE 

XP  KILO-flBTBBS 

COBPOTE  LP-BADIOS-IR-BETEBS  (LAOBCH-POXBT)  = 
LP-BADIOS  •  1000.0 

ELSE 

IP  FEET 

COBPOTE  LP-BADIOS-IR-BETEBS  (LAORCH-POIMT)  * 
LP— RADIOS  *  0.3048 

ELSE 

BOTE  LP-BADZOS 

TO  LP-B ADXO S-IR -B BTEB S  (LAOHCB-POIRT) . 

IP  LP-BADIOS-IR-BETEBS  (LAORCB-POIRT) 

>  BAZIBOB-BADIUS-IH-BBTBBS 
BOTE  LP-BADIOS-IR-BETEBS  (LAORCB-POIRT) 

TO  BAXIBOB -BADIO S-IH -BETEBS . 
COBPOTE  LP-LAT  (LAORCB-POIRT) 

*  ((LAID  *  60  ♦  LATB)  •  60  ♦  LATS) . 

IP  LP— 500TB 

COBPOTE  LP-LAT  (LAOHCB-POIRT) 

•  -  LP-LAT  (LAORCB-POIRT)  . 

COBPOTE  LP-LOR  (LAOHCB-POIRT) 

«  ( (LORD  *  60  ♦  LORR)  •  60  ♦  LORS) . 

IP  LP-REST 

COBPOTE  LP-LOR  (LAORCB-POIRT) 

*  -  LP-LOR  (LAORCB-POIRT) . 

COBPOTE  LP-DBLTA-LAT  (LAORCB-POIRT)  BOORDBD  » 

34  •  LP-BADIOS-IR-BETEBS  (LAORCB-POIRT)  . 

BOTE  LP-LAT  (LAORCB-POIRT)  TO  ABS-LAT. 

IP  ABS-LAT  ♦  LP-DELTA-LAT  (LAORCB-POIRT)  <  324000 
COBPOTE  LATB  BOORDED 

«  LP-LAT  (LAORCH— POIRT)  *  SBCRAD 
CALL  •HAPSXD*  0SIR6  LATB. 

LP-DELTA-LOR  (LAORCB-POIRT) 

ELSE 

ROVE  1500000  TO  LP-DELTA-LOR  (LAORCB-POIRT) . 

0010— EXIT. 

EXIT. 


CAB  TIB -BETH I IT AL  SBCTIOM. 


BALK-BETBIETAL-PATB . 

CALL  *CABTAHV  0SZB6  COBHOHICATIOH -BLOCK# 

KET-OOT# 

HDX-TECTOBS# 

BOX -DELTA# 

LOB -LI HITS, 

HIGH— LIBITS . 

IF  IOT  BOBE-PATH 

GO  TO  CABTAH-BBTBIBTAL-EXIT 

ELSE 

BOTE  GBP  TO  FOHCTIOH-CODE 
BOTE  BDX-LAT  TO  ABS-LAT 
IP  (ABS-LAT  ♦  BDZ -DELTA)  HOT  >  320000 
IBITIALIZE  TO  OOTSIDE-ALL 
BOTE  OOTSIDB-ALL-CIBCLES  TO  POBCTIOH-CODB-O 
BOLTIPLT  HDX-DELTA  BT  ESTIHATOB  GIVING  DSTHCE2 
PEBFOBB  0200— CHK-LPS  THBO  0200-CBK-LPS-EXIT 
TABTIBG  LAOBCB-POIBT  FBOB  1  BT  1  OBTIL 
(LAOHCH-POIHT  >  BOHBEB-OF-LAOHCB— POIBTS) 
IF  KEEP— ALL -CHILDBBH 

PEBFOBB  0300— KEEP-ALL  TBBO 

0300 -KEEP— ALL-EXIT  OBTIL  HOT  BOBE-PATH 
IF  STATUS-CODE  *  »GH» 

BOTE  88 -COHTIHO B-BALK  TO 

TO  FOSCTIOH-CODE-4 
BOTE  SPACES  TO  STATOS-CODE. 


GO  TO  ■ ALK -BETBIBTA  L-PATB 
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0200-CBK-LPS. 

COB POTS  IBS-LIT  *  ID! -LIT  -  LP-LAT  (LADMCB-POIMT) . 

IP  ABS-LAT  MOT  > 

■DX— DELTA  ♦  LP-DELTA-LAT  (LADMCH-POXMT) 
COBPOTB  ABS-LAT  *  MDZ-LOM  -  LP-LOM  (LADMCB-POIMT) 
IP  ABS-LAT  EOT  > 

■DX -DELTA  ♦  LP-DBLT A— L Of  (LAOiCB-POXMT) 
CALL  * VECTOR*  DSXMG  IDX-LAT 

BDX-LOM 

LP-LAT  (LADMCB-POIMT) 
LP-LOM  (LAOMCB-POIHT) 
DSTMCE1  IPLAG 

SUBTRACT  LP— BADXDS-XM-BETEBS  (LADMCB-POIMT) 

PBOB  DSTMCE1 


IP  DSTMCE2  MOT  >  -  DSTMCE1 

TOTALLY  XMSXDE  A  RANGE  CIRCLE 
BOVB  INSIDE— A— CIRCLE  TO  PDBCTIOM-CODB-4 
SET  LADMCB-POIMT 

TO  MOBBER-OP-LAOMCB— POINTS 

ELSE 

IP  DSTMCB2  >  DSTMCE1 

OVERLAPS  A  BARGE  CIRCLE 
ROVE  88 -CONTINUE -BALK 

TO  PDMCTIOM -CODE-4 

IP  DSTMCE2  >  BAXIROB-RADIOS-IM— METERS 
SET  LADMCB-POIMT  TO 

MDRBER-OP-LADRCB-POIMTS . 

020 O-CBK-LPS -EXIT . 

EXIT. 


0300-KEEP-ALL. 

IP  (IOT  BODE)  AID  (ISL  IOT  <  HIM-ISLE-SOBBEH 

AID  IOT  >  HAX-ISLE-MOHBBH) 
BOTE  LOB-TALOES  TO  IOIB-PLAG 
PBBPOBH  03SO-EXPAID-COOBDS 

THBO  0350-EXPAID-COOHDS— EXIT 
BBLBASB  SELECTED— BBCOBD  PBOB  BBSOLT-ABEA 
ADD  41  TO  BOHBEB-BBCOBDS • 

CALL  'CABTAH*  0SII6  COB BOIICATIOI -BLOCK , 

KET-OOT, 

BDX-TECTOBS , 

■DZ -DELTA. 

030 0— KEEP-ALL -EXIT . 


0350— EX PAID-COOBDS. 

IP  IDX-LAT  <  0 

COBPOTE  LAT-LIG-BOBK-ABEA  «  -  NDX-LAT 
BOTE  «S»  TO  LAT-IS  OP  LAT-OOT 

ELSE 

BOTE  IDX-LAT  TO  LAT-LIG-BOBK-ABEA 
BOTE  TO  LAT-IS  OP  LAT-OOT. 

DITIDE  LAT-LIG-BOBK-ABEA  BT  SIXTT 
GITIIG  LAT-LIG-BOBK-ABEA 
BEBAIIDEB  LAT-SBC  OP  LAT-OOT. 

DITIDE  LAT-LIG-BOBK-ABEA  BX  SIXTT 
GITIIG  LAT-DEG  OP  LAT-OOT 
BEBAIIDEB  LAT-BII  OP  LAT-OOT. 

IP  IDX-LOI  <  0 

COBPOTE  LAT-LIG-BOBK-ABEA  *  -  IDX-LOI 
BOTE  TO  LOI-BB  OP  LOI-OOT 

ELSE 

BOTE  IDX-LOI  TO  LAT-LIG-BOBK-ABEA 
BOTE  •B*  TO  LOI-BI  OP  LOI-OOT. 

DITIDS  LAT-LIG-BOBK-ABEA  BT  SIXTT 
GITIIG  LAT-LIG-BOBK-ABEA 
BEBAIIDEB  LOI-SBC  OP  LOI-OOT. 

DITIDB  LAT-LIG-BOBK-ABEA  BT  SIXTT 
GITIIG  LOI-DBG  OP  LOI-OOT 
BEBAIIDEB  LOI-BII  OP  LOI-OOT. 

0350-BXPAID-COOBDS-BXIT . 

EXIT. 


CABTAB-IZTBIETAL-ZXZT. 

EXIT. 
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